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Parece ser que la primavera va a 
traer novedades para los usuarios de 
MSX. En este mismo número ya ade- 
lantamos varías, que suponemos sa- 
tisfarán a nuestros lectores. 
La primera de ellas es la sensacional 
oferta PACK de PHILIPS, consistente 
en un ordenador, joystick, cassette y 
un sensacional paquete con cien pro- 
gramas. 

Otra de las novedades de primavera 
que podemos adelantar, es que deter- 
minado fabricante de Baracaldo aca- 
ba de comercializar un adaptador 
que, por ñu, convertirá los ordenado- 
res Spectravídeo SV-328 y SV-318 en 
totalmente compatibles MSX. De to- 
dos modos, hemos iniciado el contac- 
to en el momento del cierre de este 
número y -por lo tanto- nada pode- 



No os perdáis las próximas ediciones. 
La tercera novedad afecta a esta, 
vuestra revista. Observaréis que este 
mes se ha variado la forma de la sec- 
ción Bit-Bit ( esperamos que ahora os 
guste más) y esto es sólo un pequeño 
avance de una serie de mejoras que 
pretendemos incluir en la publica- 
ción. 

Una última novedad, es la desapari- 
ción de la serie más larga jamás es- 
crita para MSX -habréis adivinado 
que se trata de DEL HÁRDÁLSOFT- 
puesto que, según Juan Carlos, ha 
cumplido sobradamente su objetivo 
original. Así pues, en este número va 
la última entrega con un par de con- 
sejos y una buena dosis de melanco- 
lía. Pero no os confíéis demasiado. Su 
autor amenaza con volver a la carga 
con algo distinto, pero tendréis que 
esperar al mes que viene para saber 
de que se trata. 

MANHATTAN TRANSFER, SA 
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VOLCADO DE 
PANTALLAS Y LINEAS 
OCULTAS 

¿Cómo se puede hacer que al 
listar una linea esta linea no 
aparezca y las demás sí, aun- 
que esta linea exista? 

¿Cómo se puede volcar una 
pantalla a la impresora. 

Joan Mármol 
Alcalá de Guadaira 
C SEVILLA) 



Contestaremos en primer 
lugar a tu segunda pregunta. 
Para volcar una pantalla a la 
Impresora te recomendamos 
que utilices el programa 
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HARD 
GOPY 

POR JOAQUIN LOPEZ 

Mrnua por vrntana* tro 
Inrmatosde copiit simulación 
en blanco y nafro copla 
spntcs rrdrlinr color»* 
compatible con cualquier 
impresora m a tríela L 

CON GARANTIA 



PARA MSX-1 



HARD-COFY, editado dentro de 
la serie oro de nuestro Club de 
Cassettes. El programa HARD- 
COFY es un programa espe- 
oialmen te realizado para obte- 
ner volcados de pantallas grá- 
ñoas sobre la impresora. 

Ocultar sólo una o varias lí- 
neas al listado en BASIC es uno 
de esos sencillos trucos que 
permiten desorientar total- 
mente a los que pretenden ac- 
ceder de forma ilícita a nues- 
tros programas. El proceso 
más utilizado para ello es el si- 
guiente: 

1.— Añade a la línea o líneas 
que quieras hacer desaparecer 
un apóstrofo ('), abreviatura 
de REM, y tantos signos de 
arroba (@ como caracteres 
tenga la línea más uno. 

2- Escribe, en modo directo, 
es decir, sin número de línea, 
el siguiente listado: 
F0RI=&H8000T0 
&HF37F.D? 

PEEK(I)=ASC( U @") THEN 
POKE 1, 127-.NEXT I ELSE 
NEXTI. 

No te impacientes si tarda 
algo en aparecer el mensaje 
Ok, ya que el bucle es muy lar- 
go. 

En ocasiones (casi nunca) 
el programa, tras ocultar la lí- 
nea deja de funcionar. En caso 
de que ocurra esto vuelve a 
cargar el programa con la lí- 
nea normal y repite el proceso 
utilizando otro carácter en lu- 
gar de la arroba. Es recomen- 
dable utilizar un carácter grá- 
Üco que no sea utilizado en 
todo el programa. 



CABLE DE CASSETTE 



4° Patilla 


Nombre de la señal 


Asignación patilla 


1 


GND 




2 


GND 




3 


GND 




4 


CMTOUT 


vly 


5 


CMTIN 




6 


REM + 


5 2 4 


7 


REM- 




8 


GND 





Interface de cassette 



Acabo de comprarme un or- 
denador M8X y me encuentro 
con el siguiente problema. El 
cable de conexión para una 
grabadora que viene con el or- 
denador trae por un lado una 
clavija DIN y por el otro 3 de 
tipo Jack. No me es posible en- 
contrar ningún cassette que 
utilice estas clavijas. ¿Hay al- 
gún cable que sustituya estas 



clavijas por una toma DIN? 
Agradecería que me indicasen 
las conexiones de dicho cable, 
ya que aquí no me sería posible 
hacerme con él. 

JUan Manuel Meneaos 
Almendr alejo (BADAJOZ) 

La conexión con tres clavi- 
jas Upojaok está muy extendi- 
da entre los pequeños apara- 
tos de cassette. Además existe 
la posibilidad de adquirir un 
cassette especial para ordena- 
dor que permite la utilización 
de esas tres clavijas. 

Evidentemente existen ca- 
bles que permiten la conexión 
entre DIN de 8 patillas y DIN 
de 6 patillas; pero no son muy 
frecuentes y es posible que no 
los encuentres en tu localidad. 

Por último te incluimos el 
esquema de patillas de la cone- 
xión del ordenador para que tú 
mismo puedas construirte di- 
cho cable. 




Vamos a poner un ejemplo 
de funcionamiento. 

SPRINT "HOLA' _ 
@@@@@@@@@@@ 
10END 

Añadimos a la línea 5 

SPRINT "HOLA" 
10END 

y escribimos a continuación . 
FOR I=H8000 TO &HF37F:D? 
PEEK(I)=A8C("@") THEN 
POKE I,127:NEXTIEL8E 
NEXTI 

Tras esto, al hacer LIST apa 
recerá. 
LIST 
10END 
Ok 



hacer RON aparecerá 



¡Milagros de la informática! 



MEMORIA MSX 

¿Puedo grabar en disco pro- 
gramas que estén escritos en 
BASIC y que superen los 
24.466 bytes que me deja Ubre 
la unidad de disco? 

Si mi ordenador es de 64 Kb, 
¿por qué hay 32 Kb que no pue- 
do usar en BASIC? ¿Cómo pue- 
do usar esos 32 Kb de memoria 
hasta ahora para mí inaccesi- 
bles? 81 contestáis que sola- 
mente desde código máquina, 
¿cómo puedo incluirlo en el 
BASIC? 

Con la instrucción VPOKE 
puedo modificar los caracteres 
del MSX en 8CREEN 1. ¿Cómo 
puedo hacerlo en 8CREEN 2? 

Santiago Fernández 
Mayoral 
LOGROÑO 

Lamentándolo mucho he- 
mos de contestarte negativa- 
mente a todas tus preguntas. A 
la primera de ellas hemos de 
decirte que no se pueden gra- 
bar en el disco programas en 
BASIC de más de 24.466 bytes 
ya que es la máxima memoria 
de que dispone el BASIC, sin 
que conozcamos ningún posi- 
ble remedio a esta limitación. 

A tu segunda pregunta he- 
mos de responderte lo mismo. 
El BASIC no es capaz de traba- 
jar con los 32 Kb ocultos de 
memoria, por lo que no puedes 
utilizarlos desde el BASIC. 
Esta limitación está dirigida a 
los programas en BASIC; pero 
puedes utilizar esta memoria 
para almacenar gráñeos, da- 
tos o cualquier otro tipo de in- 
formación que no sea directa- 
mente utilizada por el intér- 
prete BASIC. Te remitimos, 



para esta utilización de la me- 
moria, a los numerosos artícu- 
los de la serle "DelHardalBoñ" 
que han aparecido en esta mis- 
ma revista. 

Por último, no puedes modl- 
fícarlos caracteres gráñeos en 
SCREEN 2 ya que estos carac- 
teres están grabados en ROM, 
a diferencia de en los otros mo- 
dos de pantalla, en que estos 
caracteres se encuentran en la 
VRAM. Esta limitación hace 
que puedas modificar los ca- 
racteres en SCREENs y 1; 
pero no en SCREEN 2 ni 3. Pue- 
des, sin embargo, utilizar spri- 
tes o bien dibujar los caracte- 
res por medio del macroco- 
mando DRAW. 



EABATE NIGHT 

Os escribo para que me di- 
gáis las lineas 1330, 1790, 
1800, 2400 y 2470 del progra- 
ma KARATE NIGHT, porque 
en la revista que yo compré es- 



Oil Vinas Palmarola 
Vio (BARCELONA) 

Ciertamente las líneas que 
nos comentas aparecieron Im- 
presas deñolentemente en al- 
gunos números. Sin embargo 
incluimos esas líneas en el si- 
guíente número de nuestra re- 
vista. Incluimos de nuevo esas 
líneas. 

1330 PRE8ET (160,6): 
PRINT&1, "DOJO": UNE (66, 
70)-(160, 90), 7, BF: PRESET 
(61,76): COLOR 1: PRLNT*1, 
"BOB'S DOJO": UNE (67,72) 
-(148,88), lfi 

1790 PRESET 
(180,6):PRLNT*1, 
"ATICO n :UNE (60-46)- 
(63,60),2JF.PUTSPRITE 2, 
(46,60),10,13:PÜT8PRITE 
3,(62,60),10,14:D7 8<>9 
THEN FOT 8PRITE 4, 



PROGRfínfíS 




KARATE_NIGHT 
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SORCERY 



En el número de junio de 
vuestra revista, número 19-20 
aparecía anunciado el juego 
SORCERY. Quisiéramos saber 
dónde encontrarlo. 

José Onclns Casan ova 
Badalona C BARCELONA) 

El Juego que nos comentas 
está distribuido porDISCOVE- 
RY INFORMA TIC. El juego es 



suñclentemente conocido, por 
lo que es muy posible que pue- 
das encontrarlo en alguna 
tienda especializada de tu loca- 
lidad. 81 no consigues locali- 
zarlo puedes dirigirte directa- 
mente a: 

DISCOVERY INFORMATIC 

Arco Iris, 76 

08032 Barcelona 

Tel.: (93)266 49 08 - 09 




1 800 P8ET (1 40, 1 86 ):DRA W 
C$: PAINT (1 43,180),8 

2400 DATA 7, 18, 31, 63, 63, 
127, 266, 266, 127, 63, 0, 31, 
63, 63, 128, 192, 224, 240, 266, 

240, 3, 3 266, 2*85, ^ 

2470 DATA, 262, 168, 207, 
239, 266, 79, 103, 118, 63, 81, 
26, 29, 16,16,16, 268, 127,63, 
169, 207, 230, 242, 248, 262, 
262, 262, 248, 248, 240, 240, 
240 



He conseguido un Ensam- 
blador/Desensamblador y no 
puedo introducir ningún pro- 
grama en código maquina, ya 
que al intentar nacer 1 ENT 
dirección el programa se 
comporta de forma muy extra- 
ña. Mi programa, al parecer, es 
de HISOÍT. 

¿Qué es un pseudomnemó- 
nico? 

Javier Nos as 
Hospitalet de Llobr egat 
C BARCELONA) 

En primer lugar hemos de 
decirte que no conseguirás 
realizar programas en ensam- 
blador hasta que no leas el ma- 
nual del programa. Los co- 
mandos a los que haces alu- 
sión son propios del programa 
ZEN, distribuido por Philips, 
mientras que nos comentas 
que posees el programa OEN, 



de HISFOT, distribuido por 
Sony. El modo de funciona- 
miento de ambos programas 
tiene muchas diferencias, por 
lo que te recomendamos que 
estudies bien el manual antes 
de intentar realizar tus pro- 
gramas en CM. 

Respecto a tu segunda pre- 
gunta, los pseudomnemónicos 
o directivas de ensamblador 
son un conjunto de instruccio- 
nes inteligibles por el ensam- 
blador; pero que no pertene- 
cen al lenguaje del Z-80. Como 
ejemplo de este tipo de instruc- 
ciones podemos citar BNT 
(punto de ENTrada) que en el 
programa de HLSOFT es ORO 
(ORIQen). 



STAR FORCE 

Desearía saber dónde puedo 
adquirir el Juego 8TAR FORCE 
comercializado en BEE CARD, 
ya que, aunque sé que existe, 
no lo encuentro por ninguna 
parte. 

Federico Ruis 
Trapazaran (BIZKAIA) 

El Juego que nos comentas 
se comercializa en formato 
BEE CARD por SERMA, a un 
precio aproximado de 6.100 
Ptas. Puedes buscarlo en tien- 
das de informática o grandes 
almacenes. Caso de no encon- 
trarlo puedes dirigirte directa- 
mente a BERMA. Su dirección 
es: 

Card. Belluga, 21 
28028 MADRID 
Tel.: (91) 266 80 06 
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UN LIBRO 
PENSADO PARA 
TODOS LOS 
QUE QUIEREN 
INICIARSE DE 
VERDAD 
EN LA 

PROGRAMA- 
CION BASIC 

Construcción de 
programas. El potente 
editor todo pantalla. 
Constantes numéricas. 
Series, tablas y 
cadenas. Grabación de 
programas. Gestión de 
archivo y grabación 
de datos. Tratamiento 
de errores. Los 
gráficos del MSX. 
Los sonidos del MSX. 
Las interrupciones. 
Introducción al 
lenguaje máquina. 



Y ADEMAS PROGRAMAS DE EJEMPLO 

Alfabético. Canon a tres voces. Moon Germs. Bossa Nova. Blue 
Bossa. La Séptima de Beethoven. La Flauta Mágica de Mozart. 
Scrapple from the apple & Donna Lee. The entretainer. Teclee un 
número. Calendario perpetuo. Modificación Tabla de colores 
SCREEN 1. Rectángulos en 3-D. Juego de caracteres alfabéticos en 
todos los modos. Juego Matemático. Más grande más pequeño. 
Poker. Breackout. Apocalypse Now. El robot saltarín. El archivo 
en casa. 
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Deseo me envíen el libro de los secretos del MSX, para lo 
cual adjunto talón de 1.500 ptas. a la orden de MAN- 
HATTAN TRANSFER, S.A. 

Nombre y apellidos 

Calle n.° 

Ciudad CP 

Este boletín me da derecho a recibir los secretos MSX en 
mi domicilio libre de gastos de envío o cualquier otro 
cargo. No se admite contrareembolso. 

Importante: Indicar en el sobre MANHATTAN 
TRANSFER, S.A. 

«LOS SECRETOS DEL MSX» 

Roca i Batlle, 10-12 Bajos - 08023 BARCELONA 
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IMPRESORAS PARA Mg 

Me gustaría que me infor- 
marais sobre las distintas im- 
presoras que hay en el merca- 
do y sus precios. Estoy intere- 
sado en una que pueda hacer 
gráficos y textos. 

Rodríguez Alonso 
ZARAGOZA 

No te podemos aconsejar so- 
bre una, ni siquiera sobre un 
grupo de impresoras, ya que 
no nos comentas tus necesida- 
des concretas, es decir, canti- 
dad de listados que se van a 
realizar, Upo de textos que se 
van a imprimir: cartas, lista- 
dos, etc. 

Vamos, sin embargo, a darte 
a ti y a los otros lectores una 
somera visión del mercado ac- 
tual de las Impresoras. 

Existen tres tipos principa- 
les de impresoras: matrlciales, 
de margarita, o de láser. Las 
impresoras de margarita son 
utilizadas para realizar textos 
con una alta calidad de escritu- 
ra; pero no realizan gráficos, 
por lo que las descartaremos. 

Las impresoras de láser pro- 
ducen una muy alta calidad de 
letra, y también son capaces de 
hacer gráficos con una altísi- 
ma resolución Son sin duda, 
las impresoras con una mejor 
calidad gráfica. Además de es- 
tas características destaca su 
elevadíslma velocidad, con un 
mínimo de 6 páginas por mi- 
nuto dependiendo de las mar- 
cas. Su principal inconvenien- 
te, su elevadísimo precio, por 
encima del medio millón de pe- 
setas, que las aleja abismal- 
mente de cualquier configura- 
ción doméstica. 

Finalmente las impresoras 
matrlciales son las utilizadas 
por la inmensa mayoría de los 
usuarios de MSX. Existen tam- 
bién los plotters, que sólo per- 
miten la generación de grán- 
eos, aunque pueden "dibujar" 
las letras para formar textos 
con una extraordinaria lenti- 
tud 



Pod&mos dividir Ias lxupi*@- 
soras matrlciales según cier- 
tas características: velocidad, 
calidad de letra, y compatibili- 
dad MSX. 

Las impresoras medias/rá- 
pidas, de más de 160 caracte- 
res por segundo (cps) tienen 
precios superiores a las 
1 60.000 Ptas., y no son, por lo 
general, compatibles MSX, es 
decir, pueden imprimir los 
textos de un MSX; pero no los 
caracteres gráficos. 

Existen muchas impresoras 
de velocidad baja con precios 
Inferiores a las 120.000 Ptas. 
Es dentro de este grupo donde 
se encuentran las compatibles 
MSX 

Dentro de éstas podemos 
distinguir las que permiten 
una letra de alta calidad 
(NLQ), como son las Selkosha, 
EPSON, Rlteman, etc. Como 
norma estas impresoras tam- 
poco son compatibles MSX 
(excepción notable es un mo- 
delo de Selkosha, la SP-1000 
MSX). 

Por último están las impre- 
soras desarrolladas por los fa- 
bricantes MSX Estas impre- 
soras tienen un "bajo" coste, 
normalmente por debajo de 
las 60-70.000 Ptas.; pero sue- 
len estar dirigidas a un público 
muy doméstico (el habitual 
dentro de los MSX). Estas im- 
presoras suelen no ser dema- 
siado rápidas ni disponer de 
letra de alta calidad; pero estas 
características no son necesa- 
rias para el usuario doméstico 
normal. 

Te recomendamos, si te en- 
cuentras dentro de este último 
grupo, una impresora compa- 
tible MSX, bien de una de las 
marcas del estándar, bien de 
otras marcas que hayan reali- 
zado la debida compatlbülza- 
ción de sus aparatos. La elec- 
ción de la marca o modelo de- 
terminados debes escogerlo, 
en último caso, atendiendo al 
precio, a la velocidad, a la cali- 
dad de letra y a su compatibili- 
dad MSX, aparte, evidente- 
inoTito, do tu £\isto jy&rsoTisJ. 
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SKY HAWK Un magnifico Juego de simula- 
ción de vuelo. En él te conviertes en un piloto 
que na de derribar al enemigo y regresar al 
portaaviones sano y salvo. PVP. 1.000 pts. 




LORD WATSON. Este es un Juego muy original 
que combina el laberinto con las palabras 
cruzadas. Los obstáculos fantásticos y el vo- 
cabulario son los alicientes . PVP. 1.000 pts. 




MATA MARCIANOS. Un Juego clásico en una 
versión cuya mayor virtud es su diabólica ve- 
locidad que aumenta a medida que superamos 
las oleadas de loe invasores extraterrestres. 
PVPQOOpte. 



VAMPIRE . Ayuda al audaz Guillermo a salir 
del castillo del Vampiro, sorteando murcié- 
lagos, fantasmas, etc. Un Juego terrorífica- 
mente entretenido para que lo pases de mie- 
do. PVP. 800 Pts. 




HARD 
C0PY 

POR JOAQUIN LOPEZ 

Menú* por ventana» tre» 
formato* de copina «Imulaelon 
en blanco y negro copla 
aprlta* xcdrflne colorea 
compatible con cualquier 
Impreaora matrlclAl. 



CON GARANTIA 



HARD COPY. Para copiar pantallas. Tres 
formatos de coplas, simulación por blancoy 
negro, copla sprites, redefinlc. de colores, 
compatible con todas las Impresoras ma- 
tric. PVP. 2.500 Pts. 




¿Cómo corregir los errores 
de transcripción de los 
programas? 
La solución a los errores en 
los programas es este TEST 
DE LISTADOS. 



CON GARANTIA 

/VW-lArW TRANSFERSA 



TEST DE LI8TAD0S. El segundo programa de 
la Serle Oro es el útilísimo Test que te permi- 
tirá controlar la corrección de los progra- 
mas que copies de MSX CLUB y MSX EXTRA 
PVP. 800 Pts. 



NT DOS A msxclub 



iwwm | U-BO0T | QUINIELAS 




KRYPTON. La batalla mas audaz de las gala- 
xias en cuatro pantallas y cuatro niveles de 
dificultad, ün juego cuya popularidad es cada 
vez mas grande entre los usuarios del MSX. 
PVP.500Ptas. 



U-BOOT. Sensacional juego de simulación 
submarina en la que tienes que demostrar tu 
pericia como capitán de un poderoso subma- 
rino de guerra. Panel de mandos, sonar, tor- 
pedos, etc. PVP. 700 Ptas. 



CON GARANTIA / 



QUINIELAS El mas completo programa de 
quinielas con estadística de la liga, de los 
aciertos, etc e impresión de boletos. Acertar 
no siempre es cuestión de suerte PVP. 700 
Ptas. 




SNAKE. Entretenido y muy divertido juego 
en el que Snake procura comer unos núme- 
ros que la engordan. Tanto las murallas que 
la rodean como su larga cola pueden ser 
mortales para ella PVP 600 Ptas 




EL SECRETO DE LA PIRAMIDE. Atrevido 
juego de aventuras a través de los misterios 
y peligros que encierran los laberínticos pa- 
sillos de una pirámide egipcia. ¡Atrévete si 
puedes! PVP. 700 Ptas. 



STAR RUNNER. Conviértete en el audaz 
j>iloto interestelar y lucha a muerte, a 
través del hiperespacio, contra las defen- 
sas del tirano Daurus. Dos pantallas y 
cinco niveles de dificultad PVP. 1.000 pte. 



FLOPPY, El Preguntón. Un verdadero desafio 
a tus conocimientos de Geografía e Historia 
española. Floppy no perdona y te costara 
mucho superarlo PVP 1.000 Ptas. 



MAD FOX. Un héroe solitario es lanzado a 
una carrera a vida o muerte por un desierto 
plagado de peligros. Conseguir el combusti- 
ble para sobrevivir es su misión Diez niveles 
de dificultad. PVP 1 000 pts 



Siquleresrecibirpor corre^ce^cado^ta^as^tte^ga^tiMd^rewrtao c^ia^st^etm y envíalo hoy mismo: 



r 



Nombre y apellidos: 

Dirección: 

Población: 



•••••* • ■ • ., 

CP ............ Prov. 







Tel.: ... 



□ KRYPTON 

□ UBOOT 

□ QUINTELAS .... 

□ HARDCOPY 

□ LORDWATSON 



Ptas. 500- 
Ptas. 700- 
Ftas. 700- 
Ptas. 2.500,- 
Ptas. 1.000- 



□ SNAKE 

□ EL SECRETO DE LA PIRAMIDE 

□ STARRUNNER 

□ TEST DE LISTADOS 



D 



MATA MARCIANOS 



Ptas. 600- 
Ptas. 700- 
Ptas. 1.000- 
Ptas. 500- 
.Ptas. 900- 



□ FLOPPY 

□ MAD FOX ... 

□ VAMPIRO .. 

□ SKYHAWK 

□ TNT 



Ptas. 1.000,- 
Ptas. 1.000,- 
Ptas. 800,- 
Ptas. 1.000- 
Ptas. l.OOO,- 



^Gastos de envió certificado por cada cassette Ptas. 70 - Remito talón bancario de Ptas a la orden de Manhattan Transfer, SAj 

ATENCION: Los suscriptores tienen un descuento del 10% sobre el precio de cada cassette. 

IMPORTANTE: Indicar en el sobre MSX CLUB DE CASSETTES. ROCA I BATLLE, 10-12 BAJOS. 08023 BARCELONA 

Para evitar demoras en la entrega es imprescindible indicar nuestro nuevo código postal. 



NUESTRAS CASSETTES NO SE VENDEN EN QUIOSCOS. LA UNICA FORMA DE ADQUIRIRLAS ES SOLICITAMELAS 

A NUESTRA REDACCION. ¡NO SE ADMITE CONTRA REEMBOLSO! 




KNMS-100 



Philips ofrece a los futuros usuarios de MSX una espectacular oferta, su MEGA PACK NMS-100. Ordenador MSX, 
cassette especial para ordenador, joystick y 50 cintas con un total de 100 juegos aun precio excepcional, 

alrededor de 46.000 pts. 

La baja de precios parece la tó- 
nica generalizada en lo que va 
de año. Varias bajas de precios 
espectaculares han copado las pri- 
meras páginas de las revistas espe- 
cializadas. En el mundo de los orde- 
nadores personales (compatibles 
PC) destacó la baja de precios de los 
compatibles, encabezada por Ams- 
trad, con su PC de bajo costo. 

En el mundo de los MSX ha empe- 
zado una pugna por acaparar el mer- 
cado del software, que desemboca en 
una bajada generalizada del precio 
del software. 

Philips lanza una oferta realmente 
excepcional. Su ordenador MSX VG- 
8020, un cassette especial para orde- 
nador, el ÜTMS 6969, un joystick NSM 
0006 y cincuenta cintas con un total 
de cien programas de todo tipo. Va- 
mos a realizar una pequeña descrip- 
ción de cada uno de los elementos que 
componen el paquete. 



El VG-8020 es uno de los MSX más 
populares, incorpora 80 Kb de RAM 
( 16 de eUos para VRAM como viene 
siendo habitual en los MSX de prime- 
ra generación). Incorpora además 
32Kb de ROM con el BASIC MSX. 

La línea de este ordenador es senci- 
Ua; pero elegante y al mismo tiempo 
funcional. En la parte frontal del or- 
denador encontramos las dos cone- 
xiones para los joysticks. Esta posi- 
ción de los conectores es mucho más 
cómoda a la hora de jugar que la habi- 
tual posición lateral. 

El teclado, excesivamente suave 
para nuestro gusto, es el más o me- 
nos habitual en los MSX. Dispone de 
las teclas cursoras en la parte dere- 
cha del teclado, grandes y cómodas de 
utilizar. La tecla de CAPS LOCK (fija 
mayúsculas) no tiene el LED rojo so- 
bre eUa misma, sino en la parte dere- 
cha del aparato, detalle que no com- 
porta ningún problema. 

El ordenador incorpora dos conec- 
tores de cartucho, situados sobre el 
teclado, y protegidos mediante una 
tapa de plástico que impide que se en- 
sucien o que sufran cualquier tipo de 
deterioro. 

En la parte posterior del aparato 
encontramos los siguientes conecto- 
res: televisión, monitor, cassette, im- 
presora y cable de red. Hemos de des- 
tacar la existencia de RESET, botón El MEGA PACK de Philips ofrece, a un precio inmejorable, todo lo necesario para adentrarse 
que nos permite reinicializar el apa- en el mundo de los MSX de primera generación. 




8 



rato sin necesidad de apagarlo y vol- 
verlo a encender. 

En general, el aspecto del aparato 
es compacto y parece bastante resis- 
tente. 



EL CASSETTE PARA ORDENADOR 



El MEGA PACK incluye también un 
cassette especial para ordenador. En 
este caso se trata de un cassette de di- 
seño sencillo; pero con lo suficiente 
para poderlo considerar un acepta- 
ble cassette para ordenador. 

El aspecto es el de un cassette con- 
vencional, con tecla de pausa; pero 
incorpora dos tipos de conexiones 
para el ordenador. Encontramos, en 
primer lugar las tres típicas conexio- 
nes tipo Jack, las que normalmente 
usan los ordenadores MSX. También 
se puede utilizar un conector DIN. El 
cassette tiene entrada de corriente 
alterna (puede enchufarse directa- 
mente a la red) o bien puede funcio- 
nar con cuatro püas de 1,5 voltios. 

El único inconveniente remarca- 
ble que hemos encontrado a este cas- 
sette es que el tornillo de ajuste del 
azimut del cabezal no es accesible, ya 
que nos lo impide la propia tapa del 
cassette. 



ELJOYSTICK 







El joystick es de diseño muy senci- 
llo. En su base encontramos cuatro 
ventosas que permiten, fijando el 
Joystick a la mesa, utilizarlo con una 
sola mano. 

La base es pequeña, y de ella sale la 
palanca (anatómica), que cnilmina 
en el botón de disparo (único). El tac- 
to de la palanca es algo duro (tal vez 
por ser nuevo), y el botón de disparo 
es algo incómodo. El diseño, aunque 
funcional, no puede ser considerado 
como muy ergonómico. 



Tal vez uno de los aspectos más es- 
peciales del MEGA PACK es que in- 
cluye cien programas en cincuenta 
cintas. Pese a lo que tal vez pudiera 
pensarse los programas tienen una 
calidad muy aceptable. De la pequeña 
muestra que hemos probado, más de 
la mitad estaban realizados en en- 
samblador (código máquina), siendo 
de una calidad bastante buena, aun- 
que evidentemente no se trata de 
«best sellers* del software. 

La mayor parte de los programas 
son juegos, aunque existen progra- 
mas de todo tipo, educativos, de apli- 
cación, de pequeña gestión, etc. 

Cada cinta contiene dos progra- 
mas, uno por cara. El mayor inconve- 
niente que hemos encontrado al con- 
junto de programas es que no indican 
cómo hemos de cargarlos, es decir, si 




El VG-8020 es uno de los más populares MSX de 80 Kb. 



de utilizar CLOAD, BLOAD o 
LOAD; pero el único problema 
que esto comporta es que hemos de ir 
probando las tres posibilidades. 

Vamos a continuación a comentar 
muy someramente una pequeña se- 
lección de los programas que hemos 
podido probar. 

En el apartado de pequeña gestión 
destaca el programa "Hoja de Cálcu- 
lo", desarrollado por DLMensión 
NEW. Este programa, pese a ser sen- 
cillo, permite la realización de peque- 
ños problemas con hoja de cálculo. 
Es un claro ejemplo de programa de 
gestión para el hogar que, aunque 
con muy pocas opciones puede resul- 
tar bastante útil. El único inconve- 
niente encontrado al respecto es que 
no existe manual de instrucciones de 
este programa, por lo que el tanteo es 
la única posibilidad de conseguir do- 
minar el programa. 

Pero la cosa no acaba aquí, encon- 
tramos también un muy potente pro- 
grama de tratamiento de textos, de- 
sarrollado por Idealogic.y que incor- 
pora muchas opciones que otros pro- 
cesadores no incorporan. Permite la 
definición de títulos, definir espacia- 
dos, márgenes, e incluso redefinir los 
caracteres y que aparezcan modifica- 
dos en la impresora. Un programa 
realmente prometedor. 

Encontramos también otros mu- 
chos títulos, que no tenemos el espa- 
cio ni el tiempo de comentar, pero 
destacaremos algunos, como GRAFI- 
COS DE GESTION, IDEA TYPE, BASE 
DE DATOS, etc. 

Dentro del apartado de juegos po- 
demos destacar algunos como HA- 
CER, una espeluznante carrera de co- 
ches. En este programa sorprende la 
alta velocidad que se puede alcanzar 
con los coches. El hecho que permite 



tal velocidad consiste en que el juego 
está realizado en SCREEN 3. Esto per- 
mite una gran velocidad, aunque los 
gráficos pierdan mucho de su alicien- 
te. 

Existen muchos más, ya hemos co- 
mentado que la mayor parte de los 
programas son juegos. Podemos ci- 
tar títulos como ALCYON, MICKY 
LUCKY, KITCHEN (juego muy sim- 
ple pero divertido), ARTILLERO, y un 
largo etcétera. 

Dentro del apartado de programas 
educativos cabe hacer mención a un 
buen número de estos programas, 
con títulos tales como ECUACIONES 
LINEALES, RIOS DE ESPAÑA CAPI- 
TALES DE ESPAÑA etc. Hemos de 
destacar el especial interés de estos 
programas que permiten aprender 
jugando, o jugar aprendiendo. 

Finalmente hemos de comentar los 
programas de utilidad. Estos progra- 
mas incluyen títulos más que intere- 
santes, como por ejemplo SUPERDE- 
8ARROLLOS 1X2., para generar y 
resolver la quiniela f utbo lística de la 
jornada, y como CALCULATOR NEW, 
otro interesante programa de la co- 
lección. 



¿Y TODO EL PAQUETE? 



El conjunto del paquete proporcio- 
na el entorno ideal para utilizar el or- 
denador. Todo lo que se precisa, ex- 
cepto la pantalla del televisor, se en- 
cuentra preparado en el MEGA 
PACK. Pero tal vez su característica 
más especial es su precio, por debajo 
de las 40.000 ptas. 

Una ocasión única para apuntarse 
al mundo de los MSX y entrar de lleno 
en el estándar más prometedor de la 
informática doméstica. ¡Es vuestra 
mejor oportunidad! 
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LA GIROMATICA (V) 



)E FIGURAS I 



En este capítulo se van a analizar algunas características del GIROMATIC, que son aplicables en general a todas las 
figuras base, aunque para dicho análisis se toma como ejemplo la elipse. Más adelante se estudiarán algunas 
características específicas de las distintas figuras base, que ayudarán al manejo del programa y la elección de los 

parámetros que definen la formación de series de figuras. 



9.1-, 

Llamaremos ángulo base al va- 
lor de A = 2.K.P1 que define la 
N 

distribución de los puntos de la figu- 
ra base, cuyo argumento es función 
de dicho ángulo base. Recordemos 
que en la elipse, el argumento de un 
punto Aj viene definido por: tg Aj = E. 
tg JA. En otras figuras base se tiene: 
Aj = JA 

9.2 - Valores particulares del ángulo 
base 

En la expresión del ángulo base A 
tenemos que para K = N/2 o bien 
K/N=0.5, A vale Pi y por tanto todos 
los puntos estarán en el eje polar ya 
que tg J A = O y por tanto Aj = O para 
cualquier valor de J. Los puntos esta- 
rán repartidos en el eje X alternati- 
vamente en dos agrupaciones en R y 
-R, ya que Rj = R. eos J.Piycos J.Pi = 
± 1 según J sea par o impar. Al unir 
los puntos mediante una recta, la fi- 
gura base resultante es un segmento 
de longitud 2.R situado en el eje polar. 

SiK = OoK = N resulta A = O o A = 
2.P1; en ambos casos todos los puntos 
están agrupados en el eje polar a la 
distancia R, pero si también estamos 
representando los simétricos, ten- 
dremos otra agrupación en -R. 

Sea ahora N = K. q siendo q un nú- 
mero entero, es decir K es divisor de 
N. Se tendrá entonces: A = 2.K.Pi/K.q 
= 2.Pi/q 

Al calcular JA se tiene que para 
J = q, J = 2.q , jJ = K.q hay K pun- 
tos agrupados en ángulos múltiplos 
de 2.PI. Los demás puntos se agrupan 
asimismo en conjuntos de K puntos 
por grupo en ángulos I.2.Pi/q varian- 
do I de a q. El resultado es un polígo- 
no convexo de q vórtices o lados. Sin 
embargo, al representar los simétri- 
cos como hace el GIROMATIC se ob- 
tendrán bien un polígono convexo 
múltiple, bien un polígono estrenado 
según sea q par o impar. Entendemos 
por figura múltiple aqueUa que por 
razones de simetría se dibuja varias 
veces en la misma iteración del pro- 
grama. 

Para K = 1 se forma la figura base 
en una sola vuelta. Si la figura tiene 
simetría, se tendrá entonces una fi- 



gura doble, ya que la simétrica que re- 
presenta el programa coincidirá con 
la propia figura base. 

Para valores de K entre O y 1, se ob- 
tiene un arco de figura base, que en 
los sucesivos giros se irá ensanchan- 
do y arroUando en espiral. 

Aunque el valor de K = no se ad- 
mite en el GIROMATIC por dar en el 
cálculo de alguna figura, divisor cero, 
se puede experimentar lo dicho antes 
con un valor de K (mayor o menor 
que cero) tan pequeño como se quie- 
ra. Es decir, la giromática es también 
una función continua de k y por tanto 
de A salvo que usemos estos paráme- 
tros en otras funciones. 

Los valores negativos de K (y por 
tanto de A) son admisibles en el GI- 
ROMATIC (también exceptuando ca- 
les que se indicarán opor- 
íente). 



De lo explicado más arriba pueden 
deducirse algunas consecuencias 
para la formación de figuras. 

Por ejemplo, cuando los puntos es- 
tán agrupados por ser K = N/2 y se 
gira la figurábase un ángulo pequeño 
(H = 0.01), se forman dos arcos de 
curva (elipse p.e.) los cuales al unir- 
los por una recta, forman una especie 
de abanicos bastante espectaculares. 

Si la figura base es un polígono es- 
trenado (N = K.q con q impar), gi- 
rando la figura un ángulo pequeño, se 
obtiene también un efecto interesan- 
te, pues se tienen q polígonos estre- 
nados con los vértices muy próximos 
unos a otros. 

Se puede ver que K = N-T da lugar a 
las mismas figuras que K = T. En 
efecto: 

A = 2.(N-T).Pi/N = 2.PÍ-2.T.P1/N = 
- 2.T.P1/N y por tanto se obtendrán 
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puntos simétricos respecto al eje po- 
lar de los obtenidos con A = 2.T.P1/N 
cuando K = T. De ello se deduce que 
para el análisis de series de figuras, 
basta hacerlo únicamente con valo- 
res de K variando entre O y N/2. Para 
las figuras que cierran la curva base 
con ángulo múltiplo de 2.pise culple 
también que la figura formada con el 
valor de K es igual a la que se forma 
con K = N/2 — K. En este caso basta 
ensayar con valores de K entre cero y 



9.3 - Figuras semejantes 

Llamamos figuras semaj antes en 
giromática a las que tienen el mismo 
■ ángulo base A. Para ello debe cum- 
plirse que KÍN = K7N\ Resulta que si 
N' = N + I, los N puntos primeros de 
la segunda figura, tendrán las mis- 
mas coordenadas que los N de la pri- 
mera ya que JA será el mismo hasta 
J = N". Los I puntos restantes se si- 
túan en ángulos I.2.K\Pi/N"' = AI es 
decir en el mismo ángulo de los I pri- 
meros (I variando de a I). Es decir, 
la figura base se ve ampliada con I 
puntos, que rodean (pues tienen dife- 
rente módulo) a los N primeros. Esta 
propiedad permite predecir la forma 
aproximada de una figura con mu- 



chos puntos, a partir de otra con me- 
nor número de puntos, con el consi- 
guiente ahorro de tiempo, ya que el 
tiempo entre dos figuras consecuti- 
vas es proporcional al número de 
puntos. 

9.4 - Giros equivalentes 

Durante la observación de una se- 
rie de figuras, tendremos interés en 
anotar los parámetros de alguna de 
ellas, por su beUeza o por su forma 
curiosa. Si la figura ocupa un lugar de 
número de orden elevado en la serie, 
sería engorroso para volver a repro- 
ducirla en la pantalla tener que pasar 
por todas las figuras anteriores. Pero 
tenemos un recurso que permite re- 
producir una figura determinada en 
la primera iteración. 

En efecto, en el giro proporcional, 
el ángulo total girado por el punto N 
después de M figuras, hemos visto 
que era: 

Wf = wf = M.HJST 

Si conocemos w{f y queremos obte- 
ner una figura igual a la que ocupa el 
lugar M en un solo giro, bastará hacer: 

H = W M /N 




El valor de puede conocerse, 

ya que el programa GIROMATIC per- 
mite imprimir en la pantalla el valor 
del argumento del punto N en cada fi- 
gura, A M o bien B( 1,N). El argumen- 
to inicial del punto N es f(NA) = 
f(2.K.Pi).Si,Kes entero, f(2.K.Pi) = 
y entonces el argumento B(1,N) 

coincide con el giro acumulado W^J, 

valor que se puede leer en la pantalla. 
Si f(2.K.Pi) # entonces debe calcu- 
larse A N a partir de la fórmula de la 

figura base o leerse en la pantalla 
dando un giro H = a la figura base. 

Tendremos entonces = A^ +^ 

Si queremos obtener la figura de- 
seada en la iteración I bastará hacer: 

H = W M /N.I 

Por su intervención repetida en las 
fórmulas de la giromática, al valor 
M.H lo designaremos como ángulo 
característico de figura. Como se 
verá, la condición para repetición de 
figuras es que M.H = 2.m.Pi siendo m 
un número entero. Es decir, la repeti- 
ción de figuras tiene lugar en aqueUa 
en que el ángulo característico es 
múltiplo de 2.Pi, en el giro proporcio- 
nal. 

La determinación del giro equiva- 
lente en el giro trigonométrico puede 
hacerse de forma análoga a la indica- 
da para el giro proporcional sustitu- 
yendo el valor de N por la función 
sen, eos, tg de s.N, de acuerdo con la 
expresión del argumento final halla- 
da en 6.1. 

9.5 - Matemática y estética 

Los ensayos que he ido efectuando 
para poner a punto el programa "Qi- 
romatic" me han permitido consta- 
tar una cierta relación estético-mate- 
mática en la formación de figuras be- 
llas. 

Así como no todas las combinacio- 
nes posibles de sonidos forman ar- 
monía, tampoco todas las posibles 
fórmulas de giro dan como resultado 
en el "Giromatic" figuras estética- 
mente interesantes. Además de las 
fórmulas de giro descritas hasta aho- 
ra, he ensayado fórmulas en que el 
ángulp de giro H e: función potencial, 
exponencial o logarítmica del valor J 
correspondiente a cada punto. Y el 
resultado ha sido, por lo menos para 
las combinaciones que he ensayado, 
francamente desalentador. Entonces 
¿por qué unas fórmulas de giro dan 
figuras beUas y otras no? Realmente 
no puedo responder a esta pregunta, 
aunque quiero pensar que la armonía 
de los números preconizada por los 
pitagóricos tiene todavía su secreto. 

Por J.M. Cllment Paycet 



CALLX 
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Este mes dedicamos esta sección a describir una rutina que resultará de gran utilidad a los usuarios de MSX1, pero, 
sobre todo, a los programadores de aplicaciones. Se trata de transformar la RAM de vídeo en un disco-RAM, de suerte 

que sea posible almacenar en ella cualquier tipo de datos. 

Como se dijo en el pasado núme- 
ro, este mes vamos a construir 
una utilidad para aprovechar 
la RAM de vídeo que no se usa habi- 
tualmente. 

La mayoría de las aplicaciones fun- 
cionan en SCREEN O. Ya sabrás que 
en este tipo de pantalla la VRAM de 
las primeras mil posiciones está re- 
servada a la tabla de portadores (lu- 
gar donde se guardan los códigos de 
los caracteres que aparecen en pan- 
talla). Asimismo, la tabla de patro- 
nes, que define la forma de cada uno 
de los 256 caracteres que puede re- 
presentar el VDP, comienza en la di- 
rección decimal 2048 y termina en la 
4095. 

Ahora bien, ¿por qué no emplear 
las 12K, que quedan libres a partir de 
la posición 4096 hasta la 16383, y el 
algo más de un millar de octetos que 
van desde la posición 960 hasta la 
2047? 

Sé bien que disponer de 13K para 
guardar datos no se puede comparar 
con la capacidad de almacenamiento 
de los disquettes, donde el espacio 
disponible no es menor de 354K. Sin 
embargo, emplear la memoria de ví- 
deo, por limitada en espacio que sea, 
tiene la ventaja de necesitar unos 
tiempos de acceso mucho más peque- 
ños, al quedar eliminados los proce- 
sos mecánicos. Por otra parte, mu- 
chos de los lectores carecen, por des- 
gracia, de unidad de discos, con lo que 
las ventajas de emplear el disco-RAM 
aumentan al compararlo con la lenti- 
tudy la falta de fiabilidad del cassette. 



DESCRIPCION RESUMIDA 

El listado uno contiene el código 
fuente del disco-RAM y el listado dos 
el cargado de líneas DATA 

Te recomiendo que teclees el pro- 
grama cargador y el mismo se encar- 
gará de grabarse en forma de bytes, 
para que, de esta forma, pueda ser lla- 
mado, siempre que se necesite, con la 
instrucción BLOAD. 

Cuando la rutina se halle en memo- 
ria, el primer paso es inicializarla 
con: 

DEFUSR=SPHFFE2 

El peligro reside en cambiar de 
SCREEN cuando el disco-RAM fun- 
ciona. En ese supuesto, la VRAM se 
redestribuirá por completo y lo más 
probable es que te cuelgues al inten- 
tar acceder a él. Por tanto, el disco 
RAM sólo puede ser empleado en 



SCREEN y no soporta el que se cam- 
bie, aunque sea por un momento, a 
otro Upo de pantalla. 

DESCRIPCION DE LA SINTAXIS 

La sintaxis usada para manejar el 
disco-RAM difiere de la empleada por 
el BASIC. 

Unicamente son reconocidos cinco 
comandos: 
SAVE "Nombre", Inicio, Final 
LOAD "Nombre", Inicio 
KILL "Nombre" 
PILES 
FRE 

Los comandos "SAVE" y "LOAD" se 
comportan de forma muy similar a 
los del BASIC "BSAVE" y "BLOAD", 
pero con la salvedad de que LOAD ne- 
cesita de una dirección que indique 
dónde han de ser colocados los datos, 
y no vale la i 
El 

rrar un fichero determinado y "PI- 
LES" para obtener un catálogo de to- 
dos los ficheros grabados en el disco- 
RAM. Para los que no disponen de 
unidad de disco, diré que estos nom- 
bres son idénticos a los que se usan 
en el citado periférico. 

Por último, el comando FRE de- 
vuelve el número de bytes libres en el 
disco-RAM. 

Para hacer una llamada a cual- 
quier de estos comandos, se debe ha- 
ber inicializado el disco (con DEFUS- 
R=6?HFFE2 : BL0AD"CAS:DISC0" : 
PRINT USR(O) ) y emplear, en modo 
directo o desde una línea de progra- 
ma, una orden como: 




PRINT USR(O) FILES 
Es decir, hay que anteponer 
"PRINT USR(O)" a cualquiera de los 
comandos anteriores. 

Si no se respeta la sintaxis correc- 
ta o se hace algo ilegal, la rutina emi- 
tirá el mensaje de error del BASIC 
que más se ajuste a la naturaleza del 
problema, mostrando desde el carac- 
terístico "Syntax error" hasta el "Füe ' 
no found", pasando por muchos de 
los errores que suelen presentarse al 
manejar una unidad de disquettes 
convencional. 

USOS Y LIMITACIONES 

La mayor limitación de esta rutina 
es, sin duda, la poca memoria dispo- 
nible para el disco-RAM. No obstante, 
y puesto que es posible Uamarla des- 
de una línea de programa, 1 2K extras 
no son despreciables si se comparan 
con las 28K de que dispone el intér- 
prete BASIC. Por otro lado, existen 
muchos programadores que em- 
plean con frecuencia programas de 
utilidad relativamente cortos (en- 
sambladores, depuradores, pequeños 
programas como los que aparecen en 
libros y revistas, etc.) y que dispon- 
drán de la ventaja de tenerlos siem- 
pre en memoria dispuestos a ser car- 
gados con una sola orden. 

Otro punto importante, es tener en 
cuenta que la rutina sólo ocupa quin- 
ce bytes de la memoria central, pues- 
to que la parte larga está permanen- 
temente en la RAM de vídeo y es vol- 
cada en la zona de trabajo de "PLAY" 
cuando se usa el disco. Gracias a esta 
maniobra no se desperdicia RAM 
útil. En contrapartida, el disco-RAM 
no se puede emplear en los MSX2, ya 
que la parte que vuelca la rutina prin- 
cipal está ubicada a partir de la direc- 
ción fif HFFE2, lugar en el que el siste- 
ma operativo de los MSX2 guarda 
una copia de los nuevos registros del 
VDP añadidos a esta versión. Cabe de- 
cir a ello que los MSX2 disponen de 
base de un disco-RAM, ya incluido en 
el intérprete BASIC. 

Para concluir, recomiendo a los 
lectores interesados en ampliar este 
disco RAM que modifiquen la rutina 
para emplear, en lugar de la RAM de 
vídeo, la RAM paginada de 32K que se 
encuentra en todos los ordenadores 
de 64K. De cualquier forma, esto se 
tratará más adelante en esta sección 
tras un capítulo dedicado a la gestión 
de los "slots". 
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LISTADO 1 



10 F0RX=4H8FE9T0ÍrHC24E 

20 REA0V$: POKEX , VALÍ ' W *V$ ) ¡ S»S+PEEK( X 

) 

30 NEXT 

40 IFS0 75364 ! THENBEEP: CLS: PRIMT'HAY UN 
ERROR- 
SO CLS:PRINT"PQN LA CINTA EN HARCHA Y P 
ULSA UNA TECLA" 

60 BSAVE-CAS: DISCO" , &H8FE9 , &HC24E 

70 CLSiPRINT'Para recuperar la rutina e 

■plfií' 

80 PRINT* BLOAO"DISCO',R ! OEFUSR=&HFF 
E2" 

90 PR1NT 

100 PRINT'El disco se incializa (se bor 
ran todos los ficheros) si haces:" 
110 PRINT" VPOKE 1026,0" 
120 PRINT 

130 PRINT'EL nuiero laxiio de ficheros 

soportados es trece" 

140 DEFUSR=4HBFE9:PRINTUSR(0) 

150 VP0KE1Q26,0 

160 DEFUSR-4HFFE2 

170 'CAGAOOR 

180 OATA 2i,00,C0,ll,E2,FF 1 fl,0F,00,E0, 
BO , 2 1 , OF , CO , 1 1 , 96 , 05 , 1 , 4E ( 02 , C3 , 5C , 00 



190 'RUTINA 

200 0ATAO1.EC.00, 21, 96,05, ll.SE.FS.CD.S 
9,00,C3,5E ( F5,01,54,01,tl,75,F9 ( 21,82,6 
, CO, 59, 00, 21, 02, 00,39, 7E, 32, 01, FA, 23,66 
,6F,06,0S,H,BA,FA, iA,96,28, ÍB^^O.BE 
, 23,28, F6,2B,13,10,F2,1E I 02,C3,6F, 40, EO 
,5B,C9 

210 OATAFA ,21 , 02, 00 , 39 , 73 , 23, 72, C9, CB, 2 
0,48, 47, 79, FE, 02,20,07, 23, 7E,FE,8F,20,E 
0,23,23,00,21,B0,FA,00,09,01,80,F5,C5,0 
O ( 46,0t,D0,4E,OO,C5,DD,El,0D,E9,CF,22,2 

2, CF,FA,3E,22,01,OE,00,EO,B1,1E,38,E2,6 
F,40,C9 

220 OATA06,OC,CO,4A,00,CO,A2,00,23,10,F 
7,3E,0D,CD,A2,00 l 3E,0A,C0,A2,0O,C9,CD,4 
A,00,B7,37,C9,1E I 05,18,99,05,E5,E0,5B,C 
F,FA,06,0C,IA,FE 1 22,28,0C,4F,CD,4A,00,B 
9,37,20,14,23,t3,10,EF,3E,0C,90,28,0B,2 

3. CD.4A 

230 0ATA00, 87,37,20, 03, 10, F6.B7.E1, 01, C 
9,21,00,04,D0,21,00,10,CD,4A,00,5F ( 23,C 
D,4A 1 00,57,23,DD 1 22,CO,FA,22 1 CB 1 FA,CO,E 
7,F5,C8,D0,l9,3A,Dl,FA,B7,37,C4,Fl,FS,0 
0,01 ) 0C,00,09,18,0A,C0 ( BF 1 F5,CF,2C 1 C0 1 2 
F, 54,05 

2*40 0ATACF,2C,22 1 C9,FA,CD ( 2F,54 ( 0S ) CD ( 1 
0,F6,04,32,FA,01,E1,A7,EB,ED,S2,CA,E0,F 
5 1 DA,E0,F5,44,4D,2A,CB,FA 1 E5,2B,78,CD,4 



Di00 ( 2BJ9,e07lO,W ( £l ( C5¿E5,(>l,ÍF,AF l C 
D,40,00,23,i0 l F9 l El ( E0 l 4B,CF ( FA,0A,FE,2 
2,28,07 

250 0ATAC0,40,00,23,03 1 18,F4,C1,2A,C0,F 
A Í 09 ( 3E,3F Í BC ) 30 ; 0E I 2A,CB,FA,2B ) 28, AF,C 
MPi0O l lE > O7,C3 i 6F,40,ED,42,EB,C3,SC l 
0,C0,BF,F5,CF,2C,C0,2F,54 1 D5,22,C9,FA,C 
0,1D,F6,1E,3S,DA,6F, 40^,06^,28,00,4 
A, 00, 47 

260 0ATA2B,C0,4A,O0,4F,2A,CD 1 FA,01,C3,5 
9,00,22,C9,FA ( 21,02,04,CO,E7,F5,28,OB,C 
1 01,F5,23,23,CO,E7 1 F5,20 1 F6,C9,1E,35,C 
3,6F ) 40 ) C0,BF,F5,22,C9,FA,C0,10 1 F6,38,F 
I 2A,C8,FA,E5,2B,CO,4A,00,47 I 2B,CO,4A,0 
0,4F,23 

270 0ATA23 I D0,2A,CD,FA,00,E5,AF ( 32,01,F 

A, C5,C0,10,F6,C1,2A,CD,FA,A7 I E0,42,22,C 

0, FA,09,E8,El,CD,70,FA,E0,5B,CB,FA ) El,2 

B, 2B,lB r lBrOl J OÉ;0O,CD,7D l FA,2A,CB,FA l 

1, F2,FF,09,AF,22 1 C8,FA,C3,40 1 00,E5,09,E 
5,EB,AF 

280 0ATAED,52,44,40,01,E1 1 C8,08 J EB,C0,4 
A.OO.EB.CD, 40,00,23, 13,OB I 79 I BO,20 # FI,C 
9 ( 22,C9,FA ( AF ( 32,D1,FA,CO,10,F6,21,00,4 
0,E0,5B,C0,FA,ED,52,22,B7,FA,21,B6,FA,C 
3 1 24,4A,OC,00,00,3A,BA,BS,B7,04,FF 1 9A,F 
A,27,FA 

290 0ATAOC,FA,E4,F9,75,F9 





LISTADO 2 ;! 


290 
300 


JR 
DEC 


Z,LO 
HL 








310 NSPC: 


INC 


DE 


ío vpeek: 


EQU 


t4A 
#4D 


320 


DJNZ LO 


20 vpoke: eou 


330 SYNTAX: 


LO 


E,2 


30 


0R6 


IFFE2 


340 ERR: 


JP 


I406F 


40 


LO 


BC.FIN-IC+2 


350 RETR: 


LD 


DE,(VECTO 


50 


LD 


HL,1430 


360 


LO 


HL,2 


60 


LD 


DE.1FS5E 


370 


ADD 


HL,SP 


70 


CALL #59 


380 


LD 


(HL),E 


80 


JP 


IF55E 


390 


INC 


HL 


90 


0R6 


IF55E 


400 


LO 


(HL),0 


100 IC: 


LD 


BCVECTOR-SAVE 


410 


RET 




110 


LD 


0E.IF975 


420 FOUNO: 


SLA 


B 


120 


LD 


HL.1430+FIN-IC+2 


430 


LO 


C,B 


130 


CALL 


#59 


440 


LD 


M 


140 


LO 


HL,2 


450 


LO 


A,C 


150 


ADD 


HL.SP 


460 


CP 


2 


160 


LO 


A, (HL) 


470 


JR 


NZ, NOFRE 


170 


LO 


(RELE), A 


480 


INC 


HL 


180 


INC 


HL 


490 


LO 


A,(HL) 


190 


LD 


H, (HL) 


500 


CP 


#8F 


200 


LD 


L,A 


510 


JR 


NZ, SYNTAX 


210 


LD 


B,5 


520 


INC 


HL 


220 


LD 


DE, TB 


530 NOFRE: 


INC 


HL 


230 LO: 


LD 


A, (DE) 


540 


LD 


IX.TBJP-2 


240 


$U8 


(HL) 


550 


AOD 


IX, 8C 


250 


JR 


Z.FOUND 


560 


LD 


BC, RETR 


260 


LD 


A," " 


570 


PUSH BC 


270 


CP 


(HL) 


580 


LO 


B.UX+1) 


280 


INC 


HL 


590 


LO 


C,(IX*0) 



600 


PUSH BC 


910 


LD 8,12 


610 


POP IX 


920 NON: 


LO A,(OE) 


620 


JP (IX) 


930 


CP 34 


630 GETNOM: 


RST #8 


940 


JR Z.EI1TQ 


640 


DEFB 34 


950 


LD C,A 


650 


LO (INNOIO.Hl 


960 


CALL VPEEK 


660 


LD A,34 


970 


CP C 


670 


LO BC, 14 


980 


SCF 


680 


CPIR 


990 


JR NZ,EXIT 


690 


LO E.56 


1000 


INC HL 


700 


JP PQ.I406F 


1010 


INC DE 


710 


RET 


1020 


DJNZ NOH 


720 OUTNOfi: 


LO B, 12 


1030 EXITQ: 


LD A, 12 


730 L2: 


CALL VPEEK 


1040 


SUB B 


740 


CALL *A2 


1050 


JR Z.EXIT 


750 


INC HL 


1060 L6: 


INC HL 


760 


DJNZ L2 


1070 


CALL VPEEK 


770 


LO A, 13 


1080 


OR A 


780 


CALL #A2 


1090 


SCF 


790 


LD A, 10 


1100 


JR NZ.EXIT 


800 


CALL #A2 


1110 


DJNZ L6 


810 


RET 


1120 


OR A 


820 chefil: 


CALL VPEEK 


1130 EXIT: 


POP HL 


830 


OR A 


1140 


POP DE 


840 


SCF 


1150 


RET 


850 


RET 


1160 exitsq: 


LD HL, 1024 


860 ilegal: 


LD E,5 


1170 


LD IX.4096 


870 


JR ERR 


1180 exq: 


CALL VPEEK 


880 COMNOh: 


PUSH OE 


1190 


LD E , A 


890 


PUSH HL 


1200 


INC HL 


900 


LD DE, ( INNOH) 


1210 


CALL VPEEK 
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CALLX 



1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 

1360 fin: 
1370 

1380 save: 

1390 

1400 

1410 

1420 

1430 

1440 

1450 

1460 

1470 

1480 

1490 

1500 

1510 

1520 

1530 

1540 

1550 

1560 

1570 

1580 

1590 

1600 

1610 

1620 

1630 

1640 

1650 

1660 

1670 

1680 

1690 

1700 

1710 L5: 

1720 

1730 

1740 

1750 

1760 

1770 u: 
1780 
1790 
1800 
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LD 
INC 
LO 
LO 



M 

HL 

(POSFIDJI 
(POSOIR) ,HL 



CALL CHEFIL 



Z 

IX, DE 
A, (RELE) 
A 



RET 
ADD 
LD 
OR 
SCF 

call Hixmm 

RET NC 
LD BC, 12 
AOD HL.BC 
JR EXQ 
0R6 IF975 
CALL 6ETN0H 
RST 18 
DEFB V 
CALL I542F 
PUSH DE 
RST 18 
DEFB V 

LD (VECTOR) ,HL 

CALL I542F 

PUSH DE 

CALL EXITSQ 

CALL NC.DELETE 

POP DE 

POP HL 

AND A 

EX OE , HL 

S8C HL , DE 

JP Z, RESAL 

JP C, i LEGAL 

LD B,H 

LD C,L 

LD HL, (POSOIR) 

PUSH HL 

DEC HL 

LO A.B 

CALL VPOKE 

DEC HL 

LO A.C 

CALL VPOKE 

POP HL 

PUSH BC 

PUSH HL 

LD 8,15 

XOR A 

CALL VPOKE 

INC HL 

OJNZ L5 

POP HL 

LD BC(INNOfl) 
LD A, (BC) 
CP 34 
JR Z.EO 
CALL VPOKE 




1810 
1820 
1830 

1840 EO: 

1850 

1860 

1870 

1880 

1390 

1900 

1910 

1920 

1930 

1940 

1950 

1960 

1970 MEN: 

1980 

1990 

2000 LOAD: 

2010 

2020 

2030 

2040 

2050 

2060 

2070 

2080 

2090 

2100 

2110 

2120 

2130 

2140 

2150 

2160 

2170 

2180 

2190 FILES: 
2200 
2210 
2220 
2230 Ll¡ 



INC 

INC 

JR 

POP 

LD 

ADO 

LO 

CP 

JR 

LD 

DEC 

DEC 

XOR 

CALL 

LD 

JP 

SBC 

EX 

JP 

CALL 

RST 

DEFB 

CALL 

PUSH 

LO 

CALL 

LO 

JP 

LD 

OEC 

CALL 

LD 

DEC 

CALL 

LO 

LD 

POP 

JP 

LD 

LD 

CALL 
JR 

CALL 
INC 



HL 
BC 
L4 
BC 

HL, (POSFIL) 
HL , BC 

A, 63 
H 

NCHEN 

HL, (POSOIR) 

HL 

HL 

A 

VPOKE 
E,7 
I406F 
HL , BC 
OE , HL 
I5C 

GETNOH 
18 

» f 

♦542F 

DE 

(VECTOR) ,HL 

EXITSQ 

E,53 

CI406F 

HL, (POSOIR) 

HL 

VPEEK 

B, A 
HL 

VPEEK 

C, A 

HL, (POSFIL) 

OE 

159 

(VECTOR), HL 

HL, 1026 

CHEFIL 

Z,NFOUND 

OUTNOfl 

HL 



2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
2250 
2260 
2270 
2280 

2290 NFOUND: 
2300 

2310 kill: 

2320 
2330 
2340 

2350 DELETE: 

2360 

2370 

2380 

2390 

2400 



= 



CALL VPEEK 
LD C,A 
INC HL 
INC HL 

LD IX , (POSFIL) 
PUSH IX 
XOR A 

LD (RELE), A 
PUSU BC 
CALL EXITSQ 
POP BC 

LO HL, (POSFIL) 

ANO A 

SBC HL.BC 

LD (POSFIL), HL 

AOD HL , BC 

EX OE , HL 

POP HL 

CALL MOVVDP 

LO OE.(POSDIR) 

POP HL 

OEC HL 

OEC HL 

DEC DE 

DEC OE 

LO BC, 14 

CALL MOVVOP 

LD HL, (POSOIR) 

INC HL 

CALL CHEFIL 

JR NZ.Ll 

RET 

LO E,S3 
JP I406F 
CALL 6ETN0M 
LD (VECTOR), HL 
CALL EXITSQ 
JR CNFOUNO 
LO HL, (POSOIR) 
PUSH HL 
DEC HL 
CALL VPEEK 
LO B,A 
DEC HL 



1 2690 


LD BC-14 


2700 


ADO HL, BC 


2710 


XOR A 


2720 


LD (POSDIR) ,HL 


2730 


JP VPOKE 


2740 HOVVOP: 


PUSH HL 


2750 


AOD HL , BC 


2760 


PUSH HL 


2770 


EX DE , HL 


2780 


XOR A 


2790 


SBC HL , DE 


2800 


LD B,H 


2810 


LD C,L 


2820 


POP DE 


2830 


POP HL 


2840 


RET Z 


2850 


RET C 


2860 LOOP: 


EX DE , HL 


2870 


CALL VPEEK 


2880 


EX DE , HL 


2890 


CALL VPOKE 


2900 


INC HL 


2910 


INC DE 


2920 


DEC BC 


2930 


LD A,C 


2940 


OR B 


2950 


JR NZ.LOOP 


2960 


RET 


2970 FRE: 


LD (VECTOR) ,HL 
XOR A 


2980 


2990 


LD (RELE) , A 


3000 


CALL EXITSQ 


3010 LO HL.I4000 


3020 


LO DE, (POSFIL) 


3030 
3040 


SBC HL , DE 
LD (CONS),HL 


3050 


LD HL , BUF 


3060 


JP I4A24 


3070 BUF: 


DEFB IC 


3080 CONS: 


DEFV 


3090 


DEFB ":' 


3100 T6: 


DEFB IBA 


3110 


DEFB «85 


3120 


DEFB IB7 


3130 


DEFB 104 


3140 


DEFB #FF 


3150 tbjp: 


OEFW FRE 


3160 


DEFV KILL 


3170 


DEFW FRES 


3180 


OEFW LOAD 


3190 


OEFW SAVE 


3200 VECTOR: 


DEFW 


3210 POSOIR: 


DEFW 


3220 POSFIL: 


DEFW 


3230 INNOH: 


DEFW 


3240 RELE: 


DEFB 



POR JOAQUIN LOPEZ 



YA ESTA EN TU QUIOSCO. Sto 



UNA REVISTA EXCEPCIONAL. Stop 




Diseñada para servir 



al usuario de un PC. Stop 



EL COMO Y EL POR QUEDE 



UN STANDAR COMUN Stop 




OTRO PRODUCTO MANHATTAN TRANSFER; S.A. Stop 



A la vanguardia de la prensa útil. Stop 







OOl~H~ QQlTlQC 
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T A L I S M 





. Un juego 




lentas con sólo veinte vidas p 




il lili TALISMAN ■ ■ ■ ■ 
20 ' ■ ■ 

30 ' ■ POR Jasé Ssnénde: ■ 
40 ' l ■ 
50 ' ■ AVILES ■ 

60 ' ■ ■ 

70 ' ■ PARA H.S.X. EXTRA ■ 
80 ' 

90 CLS:SCPEEN 2.2:CQL0R 1,1, íiDEFINT A 
-Y 

100 GLOSE: QPEN "GRP:" ASI1:SCT0 5510 
110 PANTALLA ■ 
120 PUT SPRITE 1,(0,0),0:PUT SPRITE 2, 
(0,0),0:PUT SPRITE 3, (0,0),0:PUT SPRIT 
E 10,(0,0),0:PUT SPRITE U, (0,0) ,0:PUT 
SPRITE 12,(Í,0),O:PUT SPRITE 23,(221, 
120),0:PUT SPRITE 31, (30,30) ,0:PUT SPR 
ITE 22, (220, 119), 
130 CLS: COLOR 1,1,1: GOSUB ¿150 
140 P=0:V=20:Z1=51:LINE(0,182)-(255,19 
1),15,BF 

150 DRA« U BMB, 183":C0L0R 1:PRINT#1,"V=' 

;v 

160 LINE(50,184)-(210,189),8,BF:LINE(5 
0,184)-(50,189),8:LINE(210,184)-(210,1 
89), 8 

170 LINE(230,182!-(255,189),15,BF:DRAW 
"B^218, lB3 n :PRINT#l. "P: " : DRAW B BM238 , 18 
3*:PMNTfl f P 

180 LINE(0, 1601- (200, 181) , 4, BF : DRAWBfT 
255,181S4C11L75E4UE6L , 2E5UE5L'E3R65 ,, :PAI 
MT1255» 179). ti 

190 DRAkTBM. 166S14C15EFEFEFEFEFEFEFEF 

EFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFE C EFEF 

EFEFEFEFE" : DRAW n B(10 . 176S14C15EFEFEFEFE 

FEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFE^EFEFE 

FEFEFEFEFEFEFE" 

200 FOR 1=2 TC 20 

210 C1=INT(RND(1)»240)^0:C2=INT!F:ND(1 

220 PSET(C1.:2;.15:NEXT í 

230 PUT SPRITE 31, (20,30), 15.33 

240 50SUB 6160 



250 BEEP:X0=-T0: V 0=1 
260 SOUND 7, 227: 50'JND 6, 31: SOUND '3, 6!?: 
S0UND2. 255: SOUND 4.25:S0UND 12,iS5tS0U 
Nu 13,!!*:SQUNS 8,2!5 
27Í? X0=X0+1 
280 PSE T (225,145!,15 
290 IF Y0=<0 THEN Y0=0 
300 IF )»»>2#i THEN X0=-30 
310 PUT SPRITE 1, (X0,Y0),10,25:PL' T SPR 

ITE 2,'X0*16,Y0V0,26: C, J T 3 D !ITE 
*8,^16),B.2 7 :PU T SPRITE 4,(X0*10,Y0+ 
37),n,l:PUT SPRITE 5, íX0*10,Y0+37) ,6, 
3;"". ,T SPF.ITE 6, (X0 A 9,Y0+45) ,3,28 
320 D=STICK(0) OP STICK(l) 
330 IF D=5 THEN Y0=Y0+1 
340 IF D=l THEN Y0=Y0-1 
350 PSET(225.145),6 
360 IF X0=MB0 AND Y0=>92 THEN PUT SPR 
ITE 4,(X0-60,149),6,3:PUT SPRITE 5,(X0 
-60,149),15,i:PUT SPRITE 7, (X0-60, 165) 
,12,6:S0UND 7,227:S0UND 4,25:S0UND 12, 
155:S0UND 13,9¡S0UND B,255:F0R 1=0 TO 
1000:NEXT I:PUT SPRITE 7, (X0-50,165),0 
: GOSUB 5330: GOTO 250 
370 IF X0=>205 AND X0=<215 AND Y0=91 T 
HEN X0=205:FOR 1=0 TO 100:NEXT I:BEEP: 
PLAY-05L64V15CDEFGABCD" , "05L64V15CDDEF 
GABC":GOTO 420 
380 IF Y0=>118 THEN 410 
390 IF X0=<172 AND Y0=>100 THEN BEEP: B 
EEP:BEEP:G0TO 260 
400 GOTO 270 

410 BEEP:GOSUB 5330:FOR 1=0 TO 1800:NE 

XT I:GOTO 250 

420 PUT SPRITE 4, (X0,Y0) ,0:PUT SPRITE5 
,(X0,Y0),0 

430 E1=1:E3=3:E4=5:E5=6 
440 FOR 1=0 TO 13 

450 PUT SPRITE 8, (X0+20.Y0+37) , 11,E1:P 
UT SPRITE 9,(X0+20,Y0+37),6,E3:PUT SPR 
ITE 10,!X0+20,Y0+53),2,E4 
460 X0=X0+2 
470 SHAP E4,E5 



480 IF X0=>255 THEN 530 
490 FOR E=0 TO 25 
500 NEXT E:NEXT I 

510 PUT SPRITE 1 ,(0,190),0:PUT SPRITE 
2,(0,190),0:PUTSPRITE 3, (0, 190) ,0¡PUT 
SPRITE 4,(0, 190), 0:PUT SPRITE 5,(0.19 
0),0:PUT SPRITE 6,(0,190),0 
520 PUT SPRITE 8, (0, 190) ,0:PUT SPRITE 
9,(0, 190), 0:PUT SPRITE 10, (0, 190) ,0:PU 
T SPRITE 31 1 (17,70),0 
530 '■■ PANTALLA l ■■ 
540 CLS:GOSUB 6l50:COLOR 1,1,1 
550 P=1:X=2:LINE(0,182)-(255,191),15,B 
F 

560 DRAH"BM0,60S4C3R2ER2ER2F2R2E2RF2R2 
E2RF2RE2RF2R2ERERFRF2ER2ERFRERE2RFERF2 
RE2R2FERF2ERFE2RFRERF2R2EFR2E2FRERF2RE 
R r 2RE2RFEFREF2RE2RF2RE2FREREFR2FEREFEF 
RE2F2REF2RE2RF2RE2RFE2PF2REF2R2EFP2E2F 
ERF2RF2ER2FERFR2E2" 

570 DPAWBH190.60S4C3ER2EFR2E2FREF2R2E 

r RE2FREF2R2FEFERERFE2RFER2FRE2RFER2FE2 

RF2REF2R2FER2FE2R2FER2' 

580 LINE(0,63)-(255,63),3:PAINT(0,62), 

3:LINE(0,64)-(255,66),2,8F:LINE(0,67)- 

(255,70),12,BF:LINE(0,71)-(255,75),2,B 

F:LINE(0,76)-(255,80),12,BF:LINE(0,81) 

-(255, 85), 2, BF 

590 FOR 1=0 TO 15 

600 C2=INT(RND(l)t240)+10:C3=INT(RND(l 



A A A 
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611 PSET(C2,C3),15:NEXT I 
620 PUT SPRITE 31 ,♦(20,35) j 15,33 
630 DRAH"BM8, 1B3" : COLOR UPRINTfl, "V*" 
iV 

6*0 LINE(50,184)-(210.1B9!,8,BF:LINE(5 
0.184)-(50,18?),B:LINE(210,184)-(2!0,1 
891.8 

650 LINE(230,182)-(255.189),15,BF:DRAW 
'BM218, lBS'sPRltfTIl , -P: "i0RAH"BH23! f U 
3':PFINTfl,P 

660 5CSUB 6160:6OTO 3840 

670 'Hf PANTALLA 2 M 

680 P=2: X=2:G0SUB 6150 

690 DPAÍ'BN45, 139S6C3U2H2L2EF3U2ER2HG2 

U4LUEFDLDS':DRAW'BM55,135S6C7U2H2L2EF3 

U2ER2H62U4LUEFÜLD8' 

700 DRAWBM100, 139S6C4U2H2L2EF3U2ER2HG 

2UiLUEFDLD8":DRAH"B«110,135S¿C3U2H2L2E 

F3U2ER2HG2U4LUEFDLD8' 

710 DRAWBH155, 139S6C8U2H2L2EF3U2ER2HG 

2U4LUEFDLD8*:DRAW-BM165, 1 35S6C3U2K2L2E 

F3U2EP.2HG2U4LUEFDLD8" 

720 DRAH'BM210, 139S6C11U2H2L2EF3U2ER2H 

62U4LUEFDLD8':DPAW8M220,135S6C3U2H2L2 

EF3U2ER2H62U4LUEFDLD8" 

730 PUT SPRITE 31, (30,30) , 15,33 

740 LINE(230,182)-(255,189),15,BF:DRAW 

■BH23Í , lB3"í PRIHTftl , P 

750 GOSUB 6160:GOTO 3840 

760 PANTALLA 3 ■■ 

770 P=3:X=2:G0SUB 6150 

780 CIRCLE(45,128),5,6,,,.6:PA!NT(45,1 

2B),6:LINE(43,131)-!47,136),15,BF 

790 CIRCLE(100, 128), 5,13, ,,.6:PAINT(10 

0,12B),13:LINE(98,131)-(102,236),15,BF 

800 CIRCLE (155, 128) ,5, 3, , , .'6: PftINT { 155 

,128),3:LINE(153,131)-(157,138),15,eF 

810 CIRCLE(210,128).5.14,.,.6:PAINT!:: 

0,128),14:LINE(208,!31)-(212,136),!5,B 
F 

820 PUT SPRITE 31. (40, 25), 15, 33 

830 LINE(230,1B2)-(255,139),15.BF:DRAW 

'BH230.1B3':PRINT#1,P 

840 GOSUB 6160: GOTO 3840 

850 '■■ PANTALLA 4 ■■ 

860 P=4:X=2:G0SUB 6150 

870 CIRCLE(45,144),7,8,,,1.4:CIRCLE(60 

, 12?) ,7, 8, , , 1. 4: DRAW-BM40, 140S4C8E15BF 

9G15 , :PAINT(52,137),8:PAINT(60,129),8: 

CIRCLEÍ45, 144) ,3,8 

880 CIRCLE (100, 144) ,7,9, ,, 1.4: CIRCLE (1 
15,129),7,9,,,1.4:DRAH"BH95,140S4C9E15 
BF9G15 , :PAINT(107,137),9:PAINT(115,129 
!',9:CIRCLE(100,144).3.9 



890 CIRCLE (152. 144) , 7, 6, . , 1.4: CIRCLEí 1 

68,129),7,6,,,1.4:DRAH"BM148,140S4C6E1 

5BF9G15":PAINT(160,137),6:PAINT(166,12 

9),6:CIRCLE(152,144),3,6 

900 CIRCLE(207,144),7,9 M) 1.4:CIRCLE(2 

22,129),7 ) 9,,,1.4¡DRAH , BH202,140S4C?E1 

5BF9G15':PAINT(214,137).9:PAINT(222,12 

9],?:CIRCLE(207,144),3,9 

910 PUT SPRITE 31, (50, 20). 15. 33 

920 LINE(230,182)-(255,189),!5,BF:DRAW 

"BN230,183":PRINTI1,P 

930 GOSUB 6160: GOTO 3840 

940 '■■ PANTALLA 5 ■■ 

950 P=5:X=2:G0SUB 6150 

960 CIRCLEÍ45, 137) , 10, 4, , , . 6: PAINT (45, 

137), 4:CIRCLE(100,137), 10,4,, ,.6:PAINT 

1 100, 1371 f 4: CIRCLEí 155, 137) , 10, 4, , , . 6: 

PAW(155.137),4:CIRCLE(2ie,!37).10,4, 

,,.6:PAINT(210,137),4 

"73 PUT SPRITE 31 . (60, 15) , 15. 33 

980 LINE(230,182)-(255,189),15,BF:DRAW 

-B«230, 183- : PRINTt 1 , P 

990 GOSUB 6160: GOTO 3840 

1000 'II PANTALLA 6 M 

1010 P=6: X=2:GOSUB 6150 

1020 DRAW-BM45, 1 45S4C 1 3U 1 5R 1 8G 1 5L 1 8E 1 5 

":PAINT(44, 144) , 13: DRAWBN100, 145S4C13 

U15R1BG15L18E15 , :PAINT(99,144),13:DRAK 

"BH155,145S4C13U15R18G15L18E15":PA!NT( 

154,144),13:DRAH"BM207,145S4C13U15R18G 

15L1BE15":PAINT(206,14¿),13 

1030 PUT SPRITE 31, (70, 10), 15,33 

1040 LINE(230,182!-(255. 1891,15, BF:DRA 

W'3.1230,183":PRINTI1,P 

1050 GOSUB 6160:GOTO 3840 

[Mt '■■ PANTALLA 7 II 

1070 P=7:X=2:G0SUB 6150 

1090 L1NE(0,155)-!28,145),12,BF:DRAWB 

H0,!30S4C12R45GI5D10E15U10":PA!NT:44,1 

32) l 12:LINE(46,155)-(84,145),i:,PF:DRA 

H"BH46,145S4C12Er5R40G15D10E15U10":PAI 

NT(100,132),12 

1090 LINE(100,155)-(138.145),12,SF:D C .¿ 
WBH100, 145S<C12E15R40G15D10E15U10":PA 
INT(154.132),12:LINE(156,155)-(192.1í5 
) , 12,BF:DRAW"BK156, 145S4C12E15R38G15D1 
0E15U10" :PAINT (208, 132) , 12: LINE (209. 15 

5>-(255, 145) . 12,BF:DRAWBM209, 145S4C-12 
E15R40' 

1100 PUT SPRITE 31, (120, 10), 15,33 
1110 LINE(230,!82)-(255,189),15,BF:DRA 
WBM230, 183-:PRINT#l,P 
1120 60SUB 6160:6OTO 3840 
1130 PANTALLA 8 n 



1140 P=B:X=2:G0SUB 6150 
1150 LINE(0,120)-(255.155),4,BF 
1160 DRAWBH0.145S4C15R28E15L3G15L3E15 
L3G15L3E15L3G15L3E15L3G15L3E15L3G15L3E 
15L36B" 

1170 DR AH " BN55 f 1 45S4C i 5R2BE 1 5L3E 1 5L3E 1 
5L3G15L3E15L3G15L3E15L3G15L3E15L3G15L3 
E15L3G15R6L9E15R3" 
1180 DRAW-BM110, 145S4C15R28E15L3G15L3E 
15L3G15L3E15L3G15L3E15L3G15L3E15L3G15L 
3E15L3G15R6L9E15R3' 
1190 DRA«"BM165, i 45S4C 1 5R28E 1 5L3G 1 5L3E 
15L3G15L3E15L3G15L3E15L3G15L3E15L3515L 
3E15L3G15R6L9E15R3" 
1200 DRAWBH217, 145S4C15R34E4L3G4L3E8L 
3G8L3E15L3G15L3E15L3615L3E15L3G15L3E15 
L3615L3E15L3G15R6L9E15R3' 
1210 PUT SPRITE 31,(90,11.15,33 
1220 LINE(230,182)-(255,189),15.BF:DRA 
WBM230, 183-:PRINT#1,P 
1230 GOSUB 61 60: GOTO 3830 
1240 H PANTALLA 9 ■■ 
1250 P=9:X=2:G0SUB 6150 
1260 LINE(180, 142)-(255, 1 42 ) . 7 : L I NE ( 1 ^ 
0,133)-(255,133),7 
1270 FOR T=185 TO 242 STEP 10 
1280 LINE(T,145)-(T+15,!30),7:LINE(TM 
5,130)-(T*20,130),7:LINE(T*20.130)-'T 
5,145),7:LINE(T*5,145)-(T,145),7 
1290 NEXT T 

1300 PUT SPRITE 31,(100.11,15,33 

1310 LINEÍ230. 1821-1255, 189!, 15. BF:9RA 

¥'BM230,Í83':PRINTI1,P 

1320 GOSUP É160:GCTO 3830 

1330 '■■ PANTALLA 10 M 

1340 P=I0: X=2:G0SUB 6150 

1350 LINE(0,142)-(255,142),7:LINE(0.13 

31-Í255, 1331,7 

1360 FOR T=2 TO 232 STEP 10 

1370 LINEÍT,145)-(M5,130\7:L:VE'M 

5, 130) - (T*20, 130) , 7:LINE (T*20, í 30) - (T* 

5, 145) , 7: LINE <T*5, 145) -(T, 145) , 7 

1380 NEXT T 

1390 PUT SPRITE 31,(110,51,15,33 

1400 LINE(230,182)-(255, 1891.15, BF:DRA 

W"BM230, 183":PRINTffl,P 

1410 GOSUB 6160:6aTO 3200 

1420 PANTALLA 11 M 

1430 P=11:X=2:G0SUB 6150 

1440 PUT SPRITE 31, (120,15), 15.33 

1450 FOR T=2 TO 52 STEP 10 

1460 LINE(T,145)-'M5.1305 , 7:LINE(M 

5.130)-(T+20,130).7:LINE(T+20,130)-(T* 

5, 145> , 7: LIME (T+5, 1 45) - (T, 145) . 7 
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1470 NEXT T:LINE(0, 142)-(75, 142>,7:LIN 
E (0,133) -(83, 133). 7 

í 480 LINE(230 f 132) -Í255, 189) . 15, BF: Df?A 

M"BN23I,1B3":PRINTI1,P 

1490 GOSUB 6160:6OTO 3200 

1500 'W PANTALLA 12 M 

1510 P=12: X=2:60SUB 6150 

1520 LINE(75,181)-(170,86),4:LINE(110, 

181)-(172,86),4:LINE(75,181)-(110,181) 

,4:LINE(170,86)-(172,66),4:PAINT(99,17 

9), 4 

1530 PUT SPRITE 31, (130,20), 15,33 

1540 LINEÍ230, 182) -(255, 189) , 15, BF: DRA 

WBM230, 183-:PRINTf 1,P 

1550 6OSUB6160: GOTG 3200 

1560 PANTALLA 13 ■■ 

1570 P=13:X=2¡60SUB 6150 

1580 DRAN'BH95,181C9U20R10D20L10':PAIN 

T(96,180),9:LINE(105,181)-(180,B9),6:L 

INE(105,161)-(l80,85),6:LINE(95,161)-( 

177,85),6:LINE(180,85)-(178,85),6:LINE 

(105,161)-(95,161),6:PAINT(104,160),6 

1590 PUT SPRITE 31, (140,25) , 15,33 

1600 LINE(230,182)-(255,189),15,BF:DRA 

W"BH230, 183-:PRINTtl,P 

1610 GOSUB 6160:GOTO 3200 

1620 '■■ PANTALLA 14 ■■ 

1630 P=14: X=2: GOSUB 6150 

1640 PUT SPRITE 31, (150,30) , 15,33 

1650 LINE (230, 182) - <255, 189) , 15, BF: DPA 

WBM230,183 , :PRINT§1,P 

1660 GOSUB 6160:GOTO 2000 

1670 'II PANTALLA 15 II 

1680 P=15: X=2: 60SÜB 6150 

1690 PUT SPRITE 31, (160,35) ,15,33 

1700 LINE(230,182)-(255,189).15.BF:DRA 

WBH230,183":PRINTtl,P 

1710 GOSUB 6160:GOTO 2000 

1720 H PANTALLA 16 ■■ 

1730 P=16: X=2: GOSUB 6150 

1740 PUT SPRITE 31, (170,35) , 15,33 

1750 LINE (230, 182) -(255. 189! , 15,BF:MA 

WBM230, 183" : PRINTi 1 , P 

1760 GOSUB 6160: GOTO 2000 

1770 II PANTALLA 17 ■■ 

1780 P=17: X=2:G0SUB 6150 

1790 PUT SPRITE 31, (180,35) , 15,33 

1800 LINE (230, 182) - (255. 189) , 15. BF: DRA 

WBM230, 183":PRINTtl.P 

1810 GOSUB 6160: GOTO 2000 

1820 n PANTALLA 19 ■■ 

1830 P=18: X=2:G0SUB 6150 

18*0 PUT SPRITE 31, (190,351,15,33 

1850 LINE (230. 182) -(255. 189), 15. BF: DRA 







WBK230, 183 , :PSIN T tl,P 

1660 GOSUB 6160:GOTO 2000 

1870 ■■ PANTALLA 19 ü 

1380 ?=!9:X=2:G0SUB =150 

1890 PUT SPRITE 23. ( 220, 1 20) , 0: PUT SPR 

ITE 22. (220, 120), 

19f0 PUT SPRITE 31, .'200, 35), 15, 33 

1910 LINE.Í230, 182)- (255, 189) , 15. BF: DRA 

W-BÍÍ230, 183" : PRINTt 1 , P 

1920 GOSUB 6160:GOTG 2000 

P30 '■■ PANTALLA 20 ■■ 

1940 ^=20:X=2;6OSUB ¿150 

1950 PUT SPRITE 31, (210,40) ,15,33 

1960 CIRCLE (228, 137) , l 1 , 4, , , . 23: CIRCLE 

(22B,142),11,4,0,3.14 I .25:PAINT(228 J 13 

7), 4 

1970 PUT SPRITE 22, '220, 119) , 12, 42 

\m LINE f 230, 1B2) - f 255. 189) , 15, 3F:DRA 

ITBff230,183":PRINTt!,P 

1990 GOSUB 6160: 60T0 2000 

2000 CIRCUITO 3 ■■ 

2010 Xl=225: Yl=120: X2=70:Y2=80: X3=170: 

Y3=80: X4=80: Y4=80: X5=120: Y5=82: X6=160: 

Y6=P4:V1=36:V2=37:V3=31:V4=35:V5=38:V6 

=39:V7=40:V8=41 

2020 GOSUB 5090 

2030 IF STRIG (0)=-l m STRIBí 1) =- 1 TH 
EN 5GT0 2310 

20¿0 PUT SPRITE !,()(, Y), il.EUfW 3PRI 
TE 2,(X,Y),6,E3:PUT SPRITE 3,(X,Y+16), 
2.E4 

2050 IF D=3 AND X=>230 'HEN PUT SPRITE 
1 . f X, Y) ,0:PUT SPRITE 2, (X,Y),0:PUT SP 

RITE 3, (X,Y+16),0:PUT SPRITE 10, (XI, Yl 

),0:PUT SPRITE 11 , (XI. Yl) ,0:PUT SPRITE 
12, (XI, Yl),0:LINE!0,86)-(255. 1811,1, B 

F:60TO 2230 

2060 IF D=7 AND X=<0 THEN X=0 

2070 IF P=14 THEN GOSUB 2660 

2080 IF P=15 THEN GOSUB 2720 

2090 IF P=16 THEN GOSUB 2780 

2100 IF P=17 THEN GOSUB 2840 

2110 IF P=18 THEN GOSUB 2920 

2120 IF P=19 THEN GOSUB 3000 

2130 IF P=20 THEN GOSUB 3100 

2140 IF P=20 AND X=>205 THEN 5130 

2150 D=STICK(0) OR STICK(l) 

2160 IF D=0 AND E3=3 THEN E1=1:E4=4:Y= 

110:6OTO 2020 

2170 IF D=0 AND E3=12 THEN E1=10:E3=12 

:E4=13:Y=110:GOTO 2020 

2180 IF D=2 AND H=l OR D=3 AND W=l OR 

D=4 AND N=l THEN X=X+5:E1=1:E3=3:E4=5: 

H=2:Y=lll:S0UND3,9:S0UND8,16:S0UND9.1fr 



■ ■ 



: SOUND10, 16: SOUND1 1 . 50: S0UND12, 0: SOUND 
13,9:G0T0 2020 

2190 IF D=2 AND W=2 OR D=3 AND W=2 OR 
D=4 AND H=2 THEN X=X+5: E 1=2: E3=3: E4=6: 
K=1:Y=110;SOUND3,9:SOUND9.16:SOUND10,1 
6 : SOUND 11,10: SQUKD 12,0: SOUND 1 3 , 9 : GOTO 
2020 

2200 IF D=6 AND Z=l OR D=7 AND 2=1 OR 
D=8 AND Z=l THEN X=X-6:E1=10:E3=12:E4= 
14: Z=2: Y=l 11 : SOUND3, 9: S0UND9, 16: SOUND 1 
0,16:SOUND11,50:SOUND12 ( 0:SOUND13,9:6O 
TO 2020 

2210 IF D=6 AND Z=2 OR D=7 AND Z=2 OR 
D=8 AND Z=2 THEN X=X-6:E1=11:E3=12:E4= 
15: Z=l : Y=l 10: S0UND3, 9: S0UND9, 16: S0UND1 
0, 16:S0UND11, 1 0: SOUNDl 2, 0: S0UND13, 9: GQ 
TO 2020 

2220 60TO 2020 

2230 IF P=14 THEN 1670 

2240 IF P=15 THEN 1720 

2250 IF P=16 THEN 1770 

2260 IF P=17 THEN 182? 

2270 IF P=18 THEN 1870 

22B0 IF P=19 THEN 1930 

2290 IF X< 135 AND X > 1 10 AND Y>98 THEN 

4610 ELSE RETURN 

2300 '■■ SALTO n 

2310 IF D=5 THEN 2020 

2320 PLAY"V15L6406CVV15L6405G" 

2330 Y=Y-6 

2340 IF D=3 THEN 2360 
2350 IF D=7 THEN 2510 
2360 E1=7:E3=3:E4=8 
2370 FOR 1=0 TO 4 
2380 Y=Y-4 

2390 IF D=3 THEN X=X+5 

2400 IF P=14 THEN GOSUB 2660 

2410 IF P=15 THEN GOSUB 2720 

2420 IF P=16 THEN GOSUB 2780 

2430 IF P=17 THEN GOSUB 2840 

2M0 IF P=18 THEN GOSUB 2920 

2450 IF P=19 THEN GOSUB 3000 

2460 IF P=20 THEN GOSUB 3100 

2470 PUT SPRITE 1, (X, Y) , U,E1:PUT SPRI 

TE 2,(X,Y),6,E3:PUT SPRITE 3,(X+2,YM6 

),2,E4 

2480 IF X=>X4-15 AND X=<X4+15 AND Y4=> 
98 OR X=>X5-15 AND X=<X5+15 AND Y5=>98 
OR X=>X6-15 AND X=<X6+15 AND Y6=>98 T 
HEN GOSUB 5330: GOTO 4640 
2490 NEXT I 
2500 Y=110:GOTO 2040 
2510 E1=16:E3=12:E4=17 
2520 FOR 1=0 TO 4 
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2530 IF D=7 THEN X=X-5 
2540 Y=Y-4 

2550 IF P*Í4 THEN GOSUB 2660 

2560 IF P=15 THEN GOSUB 2720 

2570 IF P=I6 THEN GOSUB 2780 

2580 IF P=17 THEN GOSUB 2840 

2590 IF P=18 THEN GOSUB 2920 

2600 IF P=19 THEN GOSUB 3000 

2610 IF P=20 THEN 60SUB 3100 

2620 PUT SPRITE 1,(X,Y),11,E1:PUT SPRI 

TE 2,(X,Y),6,E3:PUT SPRITE 3,Ü-2,YM6 

),2,E4 

2630 NEXT I 

2640 Y=110:6OTO 2040 

2650 '■■ ANIMALES ■■ 

2660 Xl=Xl-5 

2670 IF Xl=<20 THEN Xl=255 
2680 IF X=>Xl-5 AND X=<X1+15 AND Y=>98 
THEN GOSUB 5330: GOTO 4640 
2690 PUT SPRITE 10, (XI, Yl) ,3, VI 
2700 SWAP VI, V2 
2710 RETURN 
2720 XMi-12 

2730 IF Xl=<20 THEN Xl=255 
2740 IF X=>Xl-5 AND X*<Xt*!5 AND Y=>99 
THEN GOSUB 5330: GOTO 4640 
2750 PUT SPRITE 10, (XI, Yl) ,8,V3 
2760 SWAP V3,V4 
2770 RETURN 
2780 Xl=Xl-6 

2790 IF Xl=<20 THEN Xl=255 

2800 IF X=>Xl-5 AND X=<X1+15 AND Y=>98 

THEN GOSUB 5330:GOTO 4640 
2810 PUT SPRITE 10, (XI, Yl) , 10, V5 
2820 SWAP V5,V6 
2830 RETURN 
2840 Xl=Xl-6:X2=X2-8 
2850 IF Xl=<20 THEN Xl=255 
2860 IF X2=<20 THEN X2=255 
2870 IF X=>Xl-5 AND X=<XH15 AND Y=>98 

OR X=>X2-5 AND X=<X2+15 AND Y=>98 THE 
N GOSUB 5330:GOTO 4640 
2880 PUT SPRITE 10, (XI, Yl) , 10, V5 
2890 PUT SPRITE 11, (X2.Y1) ,8,V3 



2"00 SWAP V3,V4:SWAP V5.V6 
2910 RETURN 
2920 Xl=Xl-8:X2=X2-9 
2930 IT Xl=<20 THEN Xl=255 
2940 IF X2=<20 THEN X2=255 
2950 IF X=>Xl-5 AND X=<X1+15 AND Y=>98 
OR X=>X2-1 AND X=<X2+15 AND Y=>98 THE 
N GOSUB 5330:GOTO <640 
2960 PUT SPRITE 10, (XI. Yl) . 11, VI 
2970 PUT SPRITE 11, (X2, v l ) ,8, V6 
2980 SWAP V5,V6:SWAP «1,V2 
2990 RETURN 

3000 X1=X1-6:Y2=Y2+2:Y3=Y3+1 
3010 IF Xl=<20 THEN Xl=255 
3020 IF Y2=>110 THEN Y2=80 
3030 IF Y3=>110 THEN Y3=80 
3040 IF X=>X2-15 AND X=<X2+15 AND Y2=> 
98 OR X=*3-15 AND X=<X3+15 AND Y3=>98 
OR X=>X 1-5 AND X=<X1M5 AND Y=>98 THE 
N GQSUB 5330: GOTO 4640 
3150 PUT SPRITE 10, (X2, Y2) ,7,V7 
3060 PUT SPRITE 11, (X3, Y3) ,4,V8 
3070 PUT SPRITE 12, (XI, Yl) , 11, VI 
3080 SWAP V7,V8:SWAP VI, V2 
3190 RETURN 

3100 Y4=Y4+2:Y5=Y5+2:Y6=Y6+2 
3110 IF Y4=>105 THEN Y4=80 
3120 IF Y5=>105 THEN Y5=82 
3130 IF Y6=>105 THEN Y6=84 
3140 IF.X=>X4-15 AND X=<X4+15 AND Y4=> 
98 OR X=)X5-15 AND X=<X5+15 AND Y5=>98 
OR X=>X6-15 AND X=<X6+15 AND Y6=>98 T 
HEN GOSUB 5330: GOTO ¿640 
3150 PUT SPRITE 10, (X4, Y4) , 14, V7 
3160 PUT SPRITE 11, (X5,Y5),7,V7 
3170 PUT SPRITE 12, (X6, Y6) , 12, V8 
3180 SWAP V7,V8:SWAP V1.V2 
3190 RETURN 

3200 n CIRCUITO 2 n 

3210 X1=225:X2=160:Y1=100:V1=31:V2=32: 

V3=34:V4=35 

3220 GOSUB 5090 

3230 IF STRIG (&)=-! OR STRIG(1)=-1 TH 
EN GOTO 3450 

3240 PUT SPRITE 1, (X.Y) , 1 1 . E i : PUT SPRI 
TE 2,(X,Y),6,E3:PUT SPRITE 3,(X,Y+16), 

3250 IF D=3 AND X=>230 THEN PUT SPRITE 
1,(X,Y),0:PUT SPRITE 2. (X, Y) ,0:PUT SP 

RITE 3, (X,Y*16),0:PUT SPRITE 10, (XI, Y! 

),0:PUT SPRITE 11, (X1,Y1),0:PUT SPRITE 
12,(X1,Y1),0:LINE(0,86)-(255,181),1,B 

F:GOTO 3390 

3260 IF D=7 AND X=<0 THEN X=0 



•r ñT< '¿i?-": 



9 w 9 




La más rápida 
y completa batalla 
espacial 

I Nombre y Apellidos: I 



Dirección: 



Población: 

Provincia: 

□ Deseo recibir: 



CP. 



El importe de mi pedido lo hago efec- 
tivo mediante: 

□ Cheque adjunto a nombre de: 
MSX CLUB DE CASSETTES 
C/RocayBatlle, 10-12, bajos. 
08023 Barcelona 




i i\uüi\m a i-i 



1470 NEXT T:LINEC0, 142)-Í75, 142) ,7:LIN 
E (0, 133)-(83, 133) . 7 

1 480 LINE(230,íS2!-(255,189).15,BF:DRA 

WBH230,183":PRINTJIi,P 

1490 GOSUB 6160:6010 3200 

1500 PANTALLA 12 ■• 

1510 P=12:X=2:60SUB 6150 

1520 LINE (75, 181) - ( 170,86) ,4: LINE (1 10, 

181)-(172,B6),4:LINE(75,181)-(110 J 181) 

,4: LINE(170,86) -(172,86) ,4:PAINT(99, 17 

9), 4 

1530 PUT SPRITE 31, (130,20), 15,33 

1540 LINE(230,182)-(255,1B9),15,BF:DRA 

«"BH230, 183":PRINTf 1,P 

1550 GOSUB6160:6OTO 3200 

1560 PANTALLA 13 ■ 

1570 P=13: X=2: GOSUB 6150 

1580 DRAWBM95, 181C9U20R10D20L10" : PAIN 

T(96,180),9:LINE(105,1B1)-(180,B9),6:L 

INE ( 105, 161 ) - ( 180, 85) , 6:LINE (95, 161) - ( 

177,85),6:LINE(180,85)-(178,85),6:LINE 

( 105, 161 ) - (75, 161 ) , 6: PAINT ( 104, 160) ,6 

1590 PUT SPRITE 31, (140,25) , 15,33 

1600 LINE(230, 182)-(255, 189) , 15,BF:DRA 

WBH230, 1B3-:PRINT#1,P 

1610 GOSUB 6160:GOTO 3200 

1620 n PANTALLA 14 ■■ 

1630 P=14: X=2:G0SUB 6150 

1640 PUT SPRITE 31, (150,30) , 15,33 

1650 LINE(230,182)-(255,189).15,BF:DPA 

WBH230, 183":PRINTtl,P 

1660 GOSUB 6160: GOTO 2000 

•670 '■■ PANTALLA^ 15 H 

1690 PUT SPRITE 31, (160,35) , 15,33 

1700 LINE (230, 182) -(255, 189) , 15,BF:DRA 

W'BH230,183":PRINTtl,P 

1710 GOSUB 6160:6070 2000 

1720 'H PANTALLA 16 ■■ 

1730 P=16:X=2:G0SUB 6150 

1740 PUT SPRITE 31, (170,35) , 15,33 

1750 LINE(230,182)-!255,!89).15,BF:DFS 

H-BH230, 183":PRIMTil,P 

1760 GOSUB 6160: GOTO 2000 

1770 PANTALLA 17 ■■ 

1780 P=17:X=2:G0SUB 6150 

1790 PUT SPRITE 31, (180,35) , 15,33 

1800 LINE(230,1B2!-(255,I89),15.BF:DRA 

WBH230,183':PRINT*1,P 

1810 GOSUB 6160:6010 2000 

1820 PANTALLA 18 ■■ 

1830 P=18:X=2:GQSUB 6150 

18*0 PUT SPRITE 31, (190, 35), 15, 33 

1850 LINE(230.182)-(255,189).15.BF:DRA 







K"B«230,183 , :PiINT»l,P 

1660 GOSUB 6160: GOTO 2000 

•E70 -n PANTALLA 1? ■■ 

1980 ?=19:X=2:60SUB ¿150 

1890 PUT SPRITE 23. (220, 120) ,0:PUT SPR 

ITE 22, (220, 120), 

\W r UT SPRITE 31. [200, 35), 15, 33 

1910 LlNE(230.182)-(255,!89).15.BF:DRA 

WB*2¿0,183':PRINTtl,P 

1920 GOSUB 6160:GOT3 2000 

1=30 *■ PANTALLA 20 ■■ 

1940 ^=20:X=2:6OSUB ¿150 

!950 PUT SPRITE 31, (210,40) , 15,33 

1960 CIRCLE (228, 1 37 ) , l 1 , 4 , , , . 25: CIRCLE 

(228, 142) , 11,4,0,3. 14, . 25 : P A I NT ( 228 , 13 

7), 4 

1970 PUT SPRITE 22, '220, 119), 12, 42 

1980 LINEf230,182)-í255.189),15,3F:DRA 

W-Bf-230, 183-:PRINTt! . F 

1990 GOSUB 6160:6010 2000 

2000 CIRCUITO 3 n 

2010 X1=225:Y1=120:X2=70:Y2=80:X3=170: 

Y3=80:X4=80:Y4=80:X5=Í20:Y5=82:X6=160; 

Y6=?4:V1=36:V2=37:V3=3*:V4=35:V5=38:V6 

=39:V7=40:V8=41 

2020 50SUB 5090 

2030 IF STRIG (0)=-l OR STRI5Í 1) =-1 TH 
EN GOTO 2310 

2010 PUT SPRITE 1. !X,Y!,U,E1:PUT SPRI 
TE 2,U,Y),6,E3:PUT SPRITE 3, (X, Y+16) , 
2,E* 

2050 F D=3 AND X=>230 THEN PUT SPRITE 
1,(X,Y),0:PUT SPRITE 2, (X,Y),0:PUT SF 

RITE 3, (X, Y+16) , 0:PUT SPRITE 10, (XI, Yl 

),0:PUT SPRITE 11, ( X 1 . Yl ) , 0: PUT SPRITE 
12,(X1,Y1),0;LINE(0,86)-(255.181),1,B 

F:GOTO 2230 

2060 IF D=7 AND X=<0 THEN X=0 

2070 IF P=14 THEN 60SUB 2660 

2080 IF P=15 THEN GOSUB 2720 

2090 IF P=16 THEN GOSUB 2780 

2100 IF P=17 THEN GOSUB 2840 

2110 IF P=18 THEN GOSUB 2920 

2120 IF P=19 THEN GOSUB 3000 

2130 IF P=20 THEN 60SUB 3100 

2140 IF P=20 AND X=>205 THEN 5130 

2150 D=STICKÍ0) OR STICKU) 

2160 IF D=0 AND E3=3 THEN El=l : E4=4: Y= 

U0:6OTO 2020 

2170 IF D=0 AND E3=12 THEN E1=10:E3=12 
:E4=13:Y=110:6OTO 2020 
2180 IF D=2 AND W=l OR 0=3 AND W=l OR 
D=4 AND N=l THEN X= X+5 : E 1 = 1 : E3=3: E4=5 : 
H=2: Y=l 1 1 : S0UND3, 9: S0UND8, 16: S0UND9, 16- 



: SOUND10, 16: S0UND1 1 , 50: S0UND1 2, 0: SOUND 
13, 9: GOTO 2020 

2190 IF D=2 AND H=2 OR 0=3 AND W=2 OR 
D=4 AND W=2 THEN X=X+5:E1=2;E3=3;E4=6: 
W=1:Y=110:SOUND3,9:SOUND9.16:SOUND10,1 
6:S0UND1 1 , 1 0: S0UND1 2 ? : SOUND 1 3, 9: GOTO 
2020 

2200 IF D=6 AND Z=l OR D=7 AND ¡=1 OR 
D=8 AND 2=1 THEN X=X-6:E!=10:E3=12:E4= 
14: Z=2: Y=l 1 1 ¡S0UND3, 9: S0UND9, 16: S0UND1 
0, 16: S0UND1 1 , 50: S0UND12, 0: S0UND13, 9:£0 
TO 2020 

2210 IF D=6 AND Z=2 OR D=7 AND Z=2 OR 
D=8 AND Z=2 THEN X=X-6:E1=11:E3=12:E4= 
15:Z=1:Y=110:SOUND3,9:SOUND9,16:SOUND1 
0, 16:S0UND11, 10: S0UND1 2 , 0: S0UND13, 9: 60 
TO 2020 

2220 60T0 2020 

2230 IF P=14 THEN 1670 

2240 IF P=15 THEN 1720 

2250 IF P=16 THEN 1770 

2260 IF P=17 THEN 1820 

2270 IF P=18 THEN 1870 

2280 IF P=19 THEN 1930 

2290 IF X< 135 AND XM10 AND Y>98 THEN 

4610 ELSE RETURN 

2300 'M SALTO n 

2310 IF D=5 THEN 2020 

2320 PLAY"V15L6406C\"V15L64056" 

2330 Y=Y-6 

2340 IF D=3 THEN 2360 
2350 IF D=7 THEN 2510 
2360 E1=7:E3=3:E4=8 
2370 FOR 1=0 TO 4 
2380 Y=Y-4 

2390 IF D=3 THEN X=X+5 

2400 IF P=14 THEN GOSUB 2660 

2410 IF P=15 THEN GOSUB 2720 

2420 IF P=16 THEN GOSUB 2780 

2430 IF P=17 THEN GOSUB 2840 

2440 IF P=1B THEN GOSUB 2920 

2450 IF P=19 THEN GOSUB 3000 

2460 IF P=20 THEN GOSUB 3100 

2470 PUT SPRITE 1, (X,Y) , U,E1:PUT SPRI 

TE 2, (X,Y) ,6,E3:PUT SPRITE 3,(X+2,YM6 

),2,E4 

2480 IF X=>X4- 15 AND X=< X4+ 15 AND Y4=> 
98 OR X=>X5-15 AND X=<X5+15 AND Y5=>98 
OR X=>X6-15 AND X=<X6M5 AND Y6=>98 T 
HEN GOSUB 5330: 60T0 4640 
2490 NEXT I 
2500 Y=110:6OTO 2040 
2510 E1=16:E3=12:E4=17 
2520 FOR 1=0 TO 4 




# # # 



2530 IF D=7 THEN X=X-5 
2540 Y=Y-4 

2550 IF P«t4 THEN GOSUB 2660 

2560 IF P=15 THEN GOSUB 2720 

2570 IF Mí THEN GOSUB 2780 

2580 IF P=I7 THEN GOSUB 2840 

2590 IF P=18 THEN GOSUB 2920 

2600 IF P=I9 THEN GOSUB 3000 

2610 IF P=20 THEN GOSUB 3100 

2620 PUT SPRITE i , (X, Y) , 1 1 , El : PUT SPRI 

TE 2,(X,Y),6,E3:PUT SPRITE 3, CX-2, Y+16 

>,2,E4 

2630 NEXT I 

2640 Y=110:GOTO 2040 

2650 '■■ ANIMALES n 

2660 Xi=X 1-5 

2670 IF Xl=<20 THEN Xl=255 
2680 IF X=>Xl-5 AND X=<X3 +15 AND Y=>98 
THEN GOSUB 5330: GOTO 4640 
2690 PUT SPRITE 10, (XI, Yl) ,3, VI 
2700 SWAP V!,V2 
2710 RETURN 
2720 X1=X1-12 

2730 IF Xl=<20 THEN XI =255 
2740 IF X=>Xl-5 AND X=<XlM5 AND Y=>98 
THEN GOSUB 5330: GOTO 4640 
2750 PUT SPRITE 10, (XI, Yl) ,8,V3 
2760 SWAP V3.V4 
2770 RETURN 
2780 X1=X 1-6 

2790 IF Xl=<20 THEN Xl=255 

2800 IF X=>Xl-5 AND X=<X1+15 AND Y=>98 

THEN GOSUB 533«:G0T0 4640 
2810 PUT SPRITE 10, (XI, Yl) , 10, V5 
2820 SWAP V5,V6 
2830 RETURN 
2840 Xl=Xl-6:X2=X2-8 
2850 IF Xl=<20 THEN Xl=255 
2860 IF X2=<20 THEN X2=255 
2870 IF X=>Xl-5 AND X=<X1+15 AND Y=>98 

OR X=>X2-5 AND X=<X2+15 AND Y=>98 THE 
N GOSUB 5330:GOTO 4640 
2880 PUT SPRITE 10, (XI, Yl) , 10, V5 
2890 PUT SPRITE 11, (X2,Y1) ,8,V3 




2900 SWAP V3,V4:SWAP V5.V6 
2910 RETURN 
2920 Xl=Xl-8:X2=X2-9 
2930 IT Xl=<20 THEN XI =255 
2940 IF X2=<20 THEN X2=25! 
2950 IF X=>X 1-5 AND X=<X1+15 AND Y=>98 
OR X=>X2-1 AND X=<X2+ 15 AND Y=>98 THE 
N GOSUB 5330: GOTO *640 
2960 PUT SPRITE 10, (XI, Y!) , 11, VI 
2970 PUT SPRITE 11, (X2, V 1).8,V6 
2980 SWAP V5,V6:SWAP VI, V2 
2990 RETURN 

3000 X1=X1-6:Y2=Y2+2:Y3=Y3M 
3010 IF Xi=<20 THEN Xl=255 
3020 IF Y2=>fl0 THEN Y2=80 
3030 IF Y3=>110 THEN Y3=80 
30*0 IF X=>X2-15 AND X=<X2+15 AND Y2=> 
98 OR X=*3-15 AND X=<X3+15 AND Y3=>98 
OR X=>Xl-5 AND X=<XM5 AND Y=>98 THE 
N GQSUB 5330: GOTO 4640 
3050 PUT SPRITE 10, (X2, Y2) ,7,V7 
3060 PUT SPRITE 11, (X3,Y3),4, VB 
3070 PUT SPRITE 12, (XI, Yl) , 11, VI 
3080 SWAP V7,V8:SWAP VI, V2 
3190 RETURN 

3110 Y4=Y4+2:Y5=Y5+2:Y6=Y6+2 
3110 IF Y4=)105 THEN Y4=80 
3120 IF Y5=>105 THEN Y5=82 
3130 IF Y6=>105 THEN Y6=84 
3140 IF.X=>X4-15 AND X=<X4+15 AND Y4=> 
98 OR X=>X5-15 AND X=<X5+15 AND Y5=>98 
OR X=>X6-15 AND X=<X6+15 AND Y6=>98 T 
HEN GOSUB 5330: GOTO 4640 
3150 PUT SPRITE 10, (X4, Y4) , 14, V7 
3160 PUT SPRITE 11, (X5, Y5) ,7,V7 
3170 PUT SPRITE 12, (X6.Y6! , 12, V8 
3180 SWAP V7,V8:SWAP VI, V2 
3190 RETURN 

3200 '■■ CIRCUITO 2 n 

3210 X1=225:X2=160:Y1=100:V1=31:V2=32: 

V3=34:V4=35 

3220 GOSUB 5090 

3230 IF STRIG (0.)=-! OR STRIG(1)=-1 TH 
EN GOTO 3450 

3240 PUT SPRITE 1, (X, Y) . 1 1,E1:PUT SPRI 
TE 2.(X,Y),6,E3:PUT SPRITE 3,(X,Y+16), 
2,E4 

3250 IF D=3 AND X=)230 THEN PUT SPRITE 
1,U,Y),0:PUT SPRITE 2, (X,Y),0:PUT SP 

RITE 3,(X,Y*16),0:PUT SPRITE 10, (XI, Yl 

),0:PUT SPRITE 11, (XI. Yl) ,0:PUT SPRITE 
12,(X1,Y1),0:LINE(0,86)-(255,181),1,B 

F:GOTO 3390 

3260 IF D=7 AND X=<0 THEN X=0 




Te encuentras en un oscuro 
castillo abandonado, inten- 
tando encontrar una llave 
de oro para romper el he- 
chizo que te impide salir. 
Para lograrlo tienes que ha- 
cer estallar los barriles de 
TFT y esquivar los mons- 
truos y la corriente de lava. 
Un apasionante juego de 
aventura. 



Nombre y Apellidos: 
Dirección: 



Población: CP. 

Provincia: 

□ Deseo recibir: 



El importe de mi pedido lo hago efec- 
tivo mediante: 

□ Cheque adjunto a nombre de: 
MSX CLUB DE CASSETTES 
C/Puoca y Batlle, 10-12, bajos. 
08023 Barcelona 







i i\uüi\ni íi i-* 


■ 


lllllilllll! 


■■■■■■■■■■■ 



4960 PUT SPRITE 10, (XI , Yl ) , 0: PL'T SPRIT 
E 11,(X1,Y1),0:PUT SPRITE 12, tXI, Yl) , S» 
4970 FOR T=0 TO 70 

4980 P'JT SPRITE 1, f X , Y+ 1 2) , 1 1 , E 1 : PUT S 
PRITE 2, ÍX, Y+12) , a,E3:FUT SPRITE 3,(1, 

yj,i 

4990 NEXT T 
5000 PLAY'B* 

5010 FOR T=0 TQ 30 

5020 PUT SPRITE l, (X,Y+12),15,ElíPUT S 

PRITE 2,(X,Y+12),6,E3 

5031 NEXT T 

5040 X=2:Y=11» 

5050 IF P=^9 GOTO 3846 

5060 IF P=10 OR P=ll OR P=12 OR P=13 T 

HEN 60T0 3220 

5070 IF P>=14 THEN 50T0 2020 
5080 TIEMPO ■■ 

5090 LINE(Z1,185)-(Z1+1,188),15,BF 

5100 IF Zl=>208 THEN PLAY'EEECCC":FOP 

r=0 TO 2000:NEXT I : SOTO 120 

5110 Zl=Zl+.08 

5120 RETURN 

5130 FINAL ■■ 

«140 PUT SPRITE 23,(220,1191,15,43 
5150 FOR 1=0 TO 500:NEXTI 
5160 PUT SPRITE 1 , (0,0) ,0:PUT SPRITE 2 
,(0,0),0:PUT SPRITE 3, (0,0) ,0:PUT SPRI 
TE II, (•,!),«: PUT SPRITE 11, (0,0),0:PU 
T SPPITE 12,(0,01.0 

5170 PLAY"05U4V l 5CDEF5ABCD ■ , "05L64V15 

CDDEFGABC" 

5180 FOR N=0 TO 17 

5190 PLAY"V15L6¿06C", "V15L6405G" 

52Í0 El=7: E3=3: E4=8 

5210 FOR 1=0 TO 4 

5220 Y=Y-5 

5230 PUT SPRITE 1, (X,Y) , 11,E1:PUT SPRI 
TE 2,(X,Y),6.E3:PUT SPRITE 3,(X+2,Y+16 
),2,E4 

5240 PUT SPPITE 22, (X+10, Y-10) , 12, 42: P 
L'T SPRITE 23, (X+10, Y-10), 15, 43 
5250 NEXT N 

5260 FOR 1=0 TC 3000:NEXT I 
5270 CLS: COLOR 1 

5280 DRAN'BH28,80":COLOR 1S: PRI NTt 1 , " P 

ara repetir la aventura" 

5290 DRAW'Bf17e,120":COLOR ISíPRIMTti," 

PULSA UNA TECLA" 

5300 E$=INKEYi 

5310 IF E$=" THEN 5300 ELSE PUT SPRIT 
E 22,(X,Y),0:PUT SPRITE 23, (X, Y) , 0: 60T 
O 120 

5320 ü VIDAS ■■ 



5330 V=V-l:LINE(27,182)-(48,19l) ( 15.3¡ : 
:DRAW'BÍ125, 183": COLOR hPRINTtl.V 
5340 PLAY"O1.10V12CDEF6AB" 
5350 IF V=-l THEN PLAY"EEECCC':FOR 1=0 
TO 2000: NEXT I; GOTO 120 
5360 RETURN 

5370 PRESENTACION n 
5380 Ml$='L12CGGECEGE":h2$="L12DFAFDFA 
F-:M3S=-05"+M2$:M4$=-05"+Ml$ 
5390 M6J='L6CCCC":H7$='02"+M6$:N8$="03 
, +H6Í:M9$='06"+l16$ 

5400 PLAY-03"*«:*:PLAYM2$,H3$:PLAYM1$, 
H4$,H5«:PLAYH7$,¡1B$,I19$ 
5410 CLS:^8SUB 6150 

5420 DRAWBK55.70S4C7U30L562R5D30E2U30 
L5U5G2D5E2U5R15D5L5D2R3E2L5D30L5G2R5E2 
BR5U 15G2D 15E2U l 5R 1 0U5L5S2R5D3U3L5E2U5G 
2D5U5E2R 1 «D25L 1 562R 1 5E2BH5U5L5D5R5L2U3 
L3D3R5BF5BR5U3562D35E2U35R5D30R5D5L10G 
2R10E2' 

5430 DRAWBH100, 70S4C7U2562D25E2U25R5D 
25L5G2R5E2BL5BU30U562D5E2R5U5L5D562R5E 
2BÜ30BR5U5G2D5E2U5R10U5L1062R10D3U3E2L 
10U15G2D15E2U15P15D5L10D2R8E2L10D5R10D 
*15L1562R15E2" 

5440 DRAH'BH130, 70S4C7U25G2D25E2R5G2L5 
R5E2U20R5D20G2U20L3R3E2D20R5G2L5E2R5U2 
0R5D20G2U20L3R3E2D20R5G2L5E2R5U25L25BF I 
25BR5U15G2D15E2U15R10U5L5G2R5D3U3E2L5U 
5G2D5E2U5R10D25L15G2R15E2BH5U5L5D5R5L2 
U3L3BU24BR3E5D5L5G2R5E2' 
5450 DRAH"BK180, 70S4C7U25G2Ü25E2R5G2L5 
E2R5U20R5D20G2U20L3R3E2D20R5G2L5E2R5U2 
5L15' 

5460 LINE(53,72)-(195,72),3:LINE(52,73 
)-(194,73),10:LINE(51,74)-(193,74),3:L 
INE(5f,73)-U92,75),U 
5470 COLOR 15:PSET(58,UÍ),4:PRINTI1," 
CREADO POR:' 

54Bf PUT SPRITE 20, (150, 105) , 2, 29: PUT 
SPRITE 21, (166, 105), 2,30 
5490 COLOR 9:PSET(42,160):PRINT*l,'¿In 
strucciones? (s/n) 
5500 60SUB 6160:6OTO5580 
5510 CLS:COLOR 1,1, IrCOLOR 11:PSET(8,9 
0) : PRINTI1 , ' , TRANQUILO, DEJAHE CONCENTR 
ARPIE!' 

5520 SPRITES H 
5530 FOR N=l TO 43:A$=" 
5540 FOR 1=1 TO 32: READ D: At=A$+CHR$(D 
):NEXT I 

5550 SPRITE$(N)=A$:NEXT N 
5560 60SUB 5370 
5570 K$=INPUT$<1) 



5580 IF K$='N" OR K*=V THEN PUT SPRI 

TE 9, (135,25) ,0: PUT SPRITE 23,(135,25) 

, íiPUT mfc 2«, MSf , lf5>i#iPUT PSIT 

E 21,(166,105),0:GOTO 120 

5590 IF K$= , S B OR K$="s n THEN 6050 

5600 IF K$=" "THEN 5570 

5610 '■■ DATAS É 

5620 DATA 0,0,0,1,13,15,7,1,1,1,8,24,2 

4,24,28,7,0,0,224,160,240,240,224,192, 

224,128,32,48,24,30,0,0 

5630 DATA 0,0,0,1,13,15,7,1,1,1,12,28, 

56,96,192,128,0,0,224,160,240,240,224, 

193,225,131,62,24,0,0,0,0 

5640 DATA 63,127,255,254,242,240,120,6 

2,30,0,7,7,7,7,7,7,224,240,0,0,0,0,0,* 

,0,0,192,224,240,240,240,240 

5650 DATA 7,7,7,7,7,6,6,12,14,15,0,0,0 

,0,0,0,240,240,240,112,48,48,48,48,56, 

60,0,0,0,0,0,0 

5660 DATA 7,7,7,3,63,62,48,32,0,0,0,0, 
0,0,0,0,240,240,240,56,23,12,12,14,15, 
0,0,0,0,0,0,0 

5670 DATA 7,7,7,7,7,6,6,12,14,15,0,0,0 
,0,0,0,240,240,248,188,28,56,240,192,9 
6,0,0,0,0,0,0,0 

5680 DATA 0,0,0,1,13,15,7,1,1,1,28,60, 

96,192,0,0,0,0,224,160,240,240,160.129 

,227,134,60,24,0,0,0,0 

5690 DATA 71,239,254,188,24,0,0,0,0,0, 

0,0,0,0,0,0,240,248,29,15,6,4,0,0,0,0, 

0,0,0,0,0,0 

5700 DATA 7,7,3,63,63,55,35,0,0,0,0,0, 
0,0,0,0,240,248,252,158,188,240,120,0, 
0,0,0,0,0,0,0,0 

5710 DATA 0,0,7,5,15,15,7,3,7,1,4,12,2 

4,120,0,0,0,0,0,128,176,240,224,128.12 

8,128,16,24,24,24,56,224 

5720 DATA 0,0,7,5,15,15,7,131,135,193, 

124,24,0,0,0,0,0,0,0,128,176,240,224,1 

28,128,128,48,56,28,6,3,1 

5730 DATA 7,15,0,0,0,0,0,0,0,0,3,15,15 

, 15, 15, 15,252,254,255, 127,79, 15,30, 124 

,120,0,224,224,224,224,224,224 

5740 DATA 15,15,15,14,12,12,12,12,28,6 

0,0,0,0,0,0,0,224,224,224,224,224,96,9 

6,48,112,240,0,0,0,0,0,0 

5750 DATA 15,15,15,28,56,48,48,112,240 

,0,0,0,0,0,0,0,224,224,224,192,252,124 

,12,4,0,0,0,0,0,0,0,0 

5760 DATA 15,15,31,61,56,28,15,3,6,0,0 

,0,0,0,0,0,224,224,224,224,224,96,96,4 

8,112,240,0,0,0,0,0,0 

5770 DATA 0,0,7,5,15,15,5,129,199,97,6 

0,24,0,0,0,0,0,0,0,128,176,240,224,128 
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,129,128,56,60,6,3,0,0 

5780 DATA 15,31. 184, 240, 96,32 .0.0,0,0, 

0,0.0,0,0,0,226,247,127,61,25,0,0,0,0, 

0,0,0,0,0,0,0 

5790 DATA 15,31,63,121,61,15,30,0,0,0, 
0,0,0,0,0,0,224,224,192,252,252,236,19 
6,0,0,0,0,0,0,0,0,0 

5800 DATA 0,0,0,0,0,0,0,128,128,132,10 

4,253,253,249,240,0,0,0,0,0,0,0,0,2,3, 

3,3,135,143,207,254,126 

5810 DATA 0,0,0,0,0,192,192,97,113,123 

,51,0,0,0,0,0,0,0,0,0,0,0,48,240,252,2 

44,252,1^,112,48,0,0 

5820 DATA 0,0,0,0,136,220,254,247,223, 

127,255,255,127,63,112,240,0,0,0,0,0,0 

,0,0,0,0,0,0,0,0,0,0 

5830 DATA 3,7,0,0,0,0,0,128,128,132,20 

4,252,248,248,240,0,252,254,127,63,39, 

7,14,124,120,0,0,0,0,0,0,0 

5840 DATA 0,0,3,2,15,207,199,97,119,12 
3,51,0,0,0,0,0,0,0,128,192,216,248,240 

5850 DATA 0,0,0,0,0,0,0,0,0,129,195.25 
5,255,255,0,0,0,0,0,0,0,0.0,0,192,192, 
192,192,192,192,0,0 

5860 DATA 0,0,1,3,3,7,7,7,7,3,3,2,1,1, 

0,0,31,116,251,255,17,181,177,181,18!, 

255,119,170,221,255,241,245 

5870 DATA 252,151,111,255,116,117,116, 

119,20,255,119,170,221,255,111,239,0,0 

,192,224,96,240,112,112,112,224,96,160 

,192,192,128,128 

5880 DATA 117.63,55,10,29,15,15,7,5,7, 
0,0,0,0,0,4,239,254,118,168,220,2*8,24 
8, 240, 80, 210, 0,0, 0,0, 0,16 
5890 DATA 8, 0,0. 0,32, 0,0, 255, 85,127,10 
6,127,85,127,106,127,16,0,0.0,4,0.0.25 
5,86,254,170,254,86,254,170,254 
"5900 DATA 0,0,0,0,0,0,0,0,0,0,251,170. 
171,170,170,171,11,10,10,10,42,59,0,0, 
0,0,187,170.171,42,42,171 
5910 DATA 187,162,187,138,138,187,0,0. 
0,0,187,170,170.42,42,43,128,128,128.0 

,0,128,0,0,128,128,187,169,187.162.162 
,187 

5920 DATA 0,0,0,0,0,57,107,255,63,11,1 
,0,0,0,0,0,0,0,0,0,0,243,250,255,126,1 
72,208,168,84,10,0,00 

5930 DATA 0,0,0,0,0,57,109,255,63,9,0, 

0,0,0,0,0,0,27,50, 108, 208, 236,255, 254, 

252,248,240,0,0,0,0,0 

5940 DATA 0,7,1,0,0,0,0,0,0,0,0,0,0,1, 

3,31,0,0,192,224,112,112,120,120,120,1 

20,120,112,240,224,192,0 



5950 DATA 0.0,3,3!, 127, 127,219,231.23; 
,219,127,127,31,3,0,0,0,0,192,248,254, 

254,219,231,231,219,254,254,248,192,0, 


5960 DATA 3,15,13,30,30,61,63,63,63,63 
,61,30,30,13,15,3,192,240,176,120,120, 
180,252,252,252,252, 180, 120, 120, 176,24 
0,192 

5970 DATA 56,108,252,124,24,24,24,24,2 

4,24,25,27,31,30,12,0,0,0,0,0,0,0,0,0, 

1,1,193,227,243,63,30,0 

5980 DATA 0,0,0,0,0,56,108,252,28,121, 

25,25,11,15,0,0,0,0,0,0,1,1,1,1,225,24 

1,153,185,163,191,28,0 

5990 DATA 31,62,126,254,247,99,64,64,6 

4,0,0,0,0,0,2,1,248,46.190,62,231,254, 

124,124,126,56,56,112,120,240,224,192 

6000 DATA 0,3,15,60,121,124,255,236,19 

2,67,67,71,47,30,0,0,0.254,156,254,119 

,76,254,240,240,192,128,128,0,0,0,0 

6010 DATA 0,128,128,200,108,63,57,15,6 

, 11, 16,32,80,0,0, 0,0, 1.1. 19. 54, 252. 156 

,240,96,208,8,4,10,0,0,0 

6020 DATA 0,0,0,8,12,31,61,127,231,195 

,132,4,10,0,0,0,0,0,0,16,48.248,188,25 

4,231,195,33,32,80,0,0.0 

6030 DATA 0,0,2,2,7,4,7,12,12,7,3,3,3, 

7,15,15,0,0,160,160,240.143,240,24,24, 

240,224,96,96,112,120,120 

6040 DATA 0,0,0,0,0,3,3,3,3.0,0,0.0,0, 

0,0,0,0,0,0,0,224.224.224,224.0.0,0.0, 

0,0,0 - 

6050 '■■ INSTRUCCIONES ■■ 

6060 PUT SPRITE 20, (150, 105) .0-.PUT SPR 

ITE 21 , ( 166, 105) , 0: PUT SPPITE 23,(135, 

55),0:PUT SPRITE 9, ( 135, 55), 

6070 COLOR 1 , 11,11: CLS 

6080 DRAN"BM56,0 , :PRINTI1."H INSTRUCC 

IONES Éí" 

6090 DRAWBM20,15":PRINT#1,"[.- El obj 
etivo del juego es rescatar una 
figura que se atribuye una virtud 
sobre- naturaHTAUSHAN) 
6100 DRAWBM18,50':PRINTtl,"2.- Se pue 
de utilizar el te- ciado b el jo 
ystick. 

3.- Para saltar pulsa el bot 
ón de disparo ó la barra. 
6110 DRAN"BH18,95":?PINTfl,"<.- Para a 
gacharse tira del joyst: ck haci 

a abajo. 

5.- Aterriza suaveaente dond 
e te indica la est-ella ín- 
ter lítente. 



6120 DRAWBH18, 150 - : PPINTt! , - Aden* 
rate en la isla y ¡SUERTE i 

6130 FOR 1=0 TO 17000: NEXT ! 
6140 CLS: COLOR 1,1,1:5070 !20 
6150 DEFUSR=&H41:A=USR(0):RETURN 
6 1 60 DEFUSR=fcH44 : A=USF; (0) : RETURN 
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TEST DE LISTADO: 



Para utilizar el Test de Listados 
que ofrecemos al final de cada 
programa, recordamos que pre- 
viamente hay que cargar en el or- 
denador el Programa correspon- 
diente aparecido en nuestro nú- 
mero 10, de octubre pág. 29. 



10 


- 58 


280 


- 25 


20 


- 58 


290 


-103 


30 


- 58 


300 


- 95 


40 


- 58 


310 


- 1 


50 


- 58 


320 


- 49 


60 


- 58 


330 


-178 


70 


- 58 


340 


-175 


80 


- 58 


350 


- 18 


90 


-231 


360 


- 33 


100 


- 58 


370 


- 60 


110 


- 58 


380 


-249 


120 


-119 


390 


-224 


130 


- 23 


400 


-166 


140 


-109 


410 


- 85 


150 


- 46 


420 


- 71 


160 


-231 


430 


-158 


170 


-249 


440 


-192 


180 


- 43 


450 


-202 


190 


-186 


460 


- 3 


200 


-199 


470 


-195 


210 


- 11 


480 


-250 


220 


-120 


490 


-200 


230 


- 71 


500 


-206 


240 


-195 


510 


- 17 


250 


- 84 


520 


-183 


260 


-164 


530 


- 58 


270 


- 2 


540 


- 23 



550 -106 820 

560 -151 830 

570 - 21 840 

580 -178 850 

590 -194 860 

600 -184 870 

610 -122 880 

620 - 76 890 

630 - 46 900 

640 -231 910 

650 -249 920 

660 -148 930 

670 - 58 940 

680 -217 950 

690 -221 960 - 

700 - 42 970 - 



980 
990 



710 - 66 
720 - 92 

730-81 1000 

740 -209 1010 

750 -148 1020 

760 - 58 1030 

770 -218 1040 

780 -202 1050 

790 - 6 1060 

800 - 53 1070 

810 -117 1080 



- 86 
-209 
-148 

- 58 
-219 
-147 
-203 
-252 

- 54 

- 91 
-209 
-148 

- 58 
-220 

212 
96 
■209 
•148 
■ 58 
•221 
•163 
■101 
■209 
■148 

- 58 
■222 
■182 



m i i i m I 






- 66 


1630 


-227 


2170 


■212' 


1100 


-151 


1640 


-201 


2180 


■223 


1110 


-209 


1650 


-209 


2190 


- 88 


1120 


-148 


1660 


-107 


2200 


-172 


1130 


- 58 


1670 


- 58 


2210 


-135 


1140 


-223 


16B0 


-228 


2220 


-130 


1150 


-''''4 


1690 


-216 


2230 


- 91 


U¿0 


-202 


1700 


-209 


2240 


-142 


1170 


-111 


1710 


-107 


2250 


-193 


1 180 


-151 


1720 


- 58 


2260 


-245 


1190 


-161 


1730 


-229 


2270 


- 40 


1200 


- 50 


1740 


-226 


2280 


-101 


1210 


-114 


1750 


-209 


2290 


- 53 


1220 


-209 


1760 


-107 


2300 


- 58 


1230 


-152 


1770 


- 58 


2310 


-167 


1240 


- 58 


1780 


-230 


2320 


-236 


1250 


-224 


1790 


-236 


2330 


-170 


1260 


- 6 


1800 


-209 


2340 


-251 


1270 


- 92 


1310 


-107 


2350 


-149 


1280 


-226 


1820 


- 58 


2360 


-237 


1290 -215 


1830 -231 


2371 


-185 


1300 


-124 


1840 


-246 


2380 


-168 


1310 


-209 


1850 


-209 


2390 


- 82 


1320 


-152 


1860 


-107 


2400 


-202 


1330 


- 58 


1870 


- 58 


2410 


- 7 


1340 


-223 


1880 


-232 


2420 


- 68 


1350 


-152 


1890 


- 41 


2430 


-130 


1360 


-157 


1900 


- 


2440 


-211 


1370 


-226 


1910 


-209 


2450 


- 36 


1380 


-215 


1920 


-107 


2460 


-138 


1390 


-138 


1930 


- 58 


2470 


-240 


1400 


-209 


1940 


-233 


2480 


-254 


1410 


- 32 


1950 


- 15 


2490 


-204 


1420 


- 58 


1960 


- 81 


2500 


-149 


1430 


-224 


1970 


-101 


2510 


- 2 


1440 


-156 


1980 


-209 


2520 


-185 


1450 


-233 


1990 


-107 


2530 


- 87 


1460 


-226 


2000 


- 58 


2540 


-168 


1470 


- 73 


2010 


-125 


2550 -202 


1480 


-209 


2020 


-144 


2560 


- 7 


1490 


- 32 


2030 


-241 


2570 


- 68 


1500 


- 58 


2040 -236 


2580 


-130 


1510 


-225 


2050 


-175 


2590 


-211 


1520 


- 67 


2060 


- 70 


2600 


- 36 


1530 


-171 


2070 


-202 


2610 


-138 


1540 


-209 


2080 


- 7 


2620 


-241 


1550 


- 32 


2090 


- 68 


2630 


-204 


1560 


- 58 


2100 


-130 


2640 


-149 


1570 


-226 


2110 


-211 


2650 


- 58 


1580 


-205 


2120 


- 36 


2660 


- 9 


1590 


-186 


2130 


-138 


2670 


-118 


1600 


-209 


2140 


-250 


2680 


-241 


1610 


- 32 


2150 


- 49 


2690 


- 66 


1620 


- 58 


2160 


- 3 


2700 


-223 




2710 


-142 


3080 


- 4 


3450 


- 58 


3820 


-142 


4190 


-237 


2720 


- 14 


3090 


-142 


3460 


- 92 


3830 


- 58 


4200 


-165 


2730 


-118 


3100 


-161 


3470 


-236 


3840 


- 90 


4210 


-168 


2740 -241 


3110 


- 34 


3480 


-17Í 


3850 


-144 


4220 


- 82 


2750 


- 73 


3120 


- 38 


3490 


-125 


3860 


- 30 


4230 


-198 


2760 


-227 


3130 


- 42 


3500 


-210 


3870 


-236 


4240 


-130 


2770 


-142 


3140 


-254 


3510 


-237 


3880 


-190 


4250 


-240 


2780 


- 10 


3150 


- 87 


3520 


-185 


3890 


- 70 


4260 


-224 


2790 


-118 


3160 


- 85 


3530 


-168 


3900 


-198 


4270 


-204 


2800 


-241 


3170 


- 92 


3540 


- 82 


3910 


-207 


4280 


-195 


2810 


- 75 


3180 


- 4 


3550 


-255 


3920 


-176 


4290 


- 2 


2820 


-231 


OiTO 






-240 


3930 


- 20 


4300 


-185 


2830 


-142 


3200 


- 58 


3570 


-204 


3940 


-124 


4310 


- 87 


2840 


- 82 


3210 


- 86 


3580 


- 74 


3950 


- 49 


4320 


-168 


2850 


-118 


3220 


-144 


3590 


- 2 


3960 


- 49 


4330 


-203 


2860 


-120 


3230 


-105 


3600 


-185 


3970 


- 2 


4340 -130 


2870 


- 18 


3240 


-236 


3610 


- 87 


3980 


- 13 


4350 


-241 


2880 


- 75 


3250 


- 60 


3620 


-168 


3990 


-134 


4360 


-224 


2890 


- 75 


3260 


- 70 


3630 


-255 


4000 


-218 


4370 


-204 


2900 


- 4 


3270 


-255 


3640 


-24Í 


4010 


-181 


4380 


-195 


2910 


-142 


3280 


- 31 


3650 


-204 


4020 


-176 


4390 


- 58 


2920 


-85 


3290 


- 49 


3660 


- 74 


4030 


-100 


4400 


-124 


2930 


-118 


3300 


-184 


3670 


- 58 


4040 


-191 


4410 


-118 


2940 


-120 


3310 


-137 


3680 


-49 


4050 


- 27 


4420 


- 13 


2950 


- 14 


3320 


-148 


3690 


- 13 


4060 


-118 


4430 


-118 


2960 


- 72 


3330 


- 13 


3700 


-118 


4070 


-179 


4440 


-243 


2970 


- 78 


3340 


- 97 


3710 


-255 


4080 


-241 


4450 


- 72 


2980 


- 


3350 


- 60 


mi 


- n 


4090 


- 56 


4460 


-223 


2990 


-142 


3360 


- 69 


3730 


-223 


4100 


-167 


4470 


-142 


3000 


-145 


3370 


- 90 


3740 


-142 


4110 


- 3 


4450 


- 86 


3010 


-118 


3380 


- 55 


3750 


- 86 


4120 


- 58 


4490 


-118 


3020 


- 35 


3390 


- 92 


3760 


-118 


4130 


- 58 


4500 


-120 


3030 


- 37 


3400 


-173 


3770 


-120 


4140 


-213 


4510 


- 22 


3040 -170 


3410 


-235 


3780 


- 46 


4150 


-236 


4520 


- 71 


3050 


- 78 


3420 


- 40 


3790 


- 69 


4160 


-170 


4530 


- 78 


3060 


- 79 


3430 


- 16 


3800 


- 77 


4170 


- 40 


4540 


-223 


3070 


- 74 


3440 


-142 


3810 


-223 


4180 


-144 


4550 


-142 



















4560 


- 13 


5100 


-105 


5640 


- 82 


4570 


-102 


5110 


-210 


5650 


-156 


4580 


- 8 


5120 


-142 


5660 


- 74 


4590 


-223 


5130 


- 58 


5670 


-214 


4600 


-142 


5140 


-106 


5680 


- 21 


4610 


- 58 


5150 


-187 


5690 


-223 


4620 


-213 


5160 


-243 


5700 


-178 


4630 


-118 


5170 


- 39 


5710 


-150 


4640 


-197 


51B0 


-201 


5720 


-210 


4650 


- 27 


5190 


-236 


5730 


-179 


4660 


-224 


5200 


-237 


5740 


-119 


4670 


-227 


5210 


-185 


5750 


-220 


4¿B0 


-193 


5220 


-169 


5760 


-239 


4690 


-204 


5230 


-240 


5770 


- 66 


4700 


- 39 


5240 


-179 


5780 


- 56 


4710 


-204 


5250 


-209 


5790 


-104 


4720 


-194 


5260 


-137 


5800 


- 59 


4730 


- 45 


5270 


-168 


5810 


-210 


4740 


-221 


5280 


-198 


5820 


-148 


4750 


- 


5290 


- 22 


5830 


-232 


4760 


-209 


5300 


- 68 


5840 


-139 


4770 


- 48 


5310 


-162 


5850 


-127 


4780 


- ?6 


5320 


- 58 


5860 


- 60 


4790 


-107 


5330 


-243 


5870 


-143 


4800 


-231 


5340 


-199 


5880 


-208 


4810 


- 49 


5350 


-107 


5890 


- 16 


4820 


-193 


5360 


-142 


5900 


-153 


411* 


-W 


5370 


- 58 


5910 


- 96 


4840 


- 43 


5380 

w v u V 


-225 


5920 


-217 


4850 


-204' 


5390 


-250 


5930 


-236 


4860 


-1-94 


5400 


- 22 


5940 


- 65 


4870 


- 49 


5410 


-146 


5950 


-150 


4980 


-221 


5420 


- 10 


5960 


- 82 


4890 


- 71 


5430 


-207 


5970 


- 73 


4°00 


-209 


5440 


- 22 


5980 


- 19 


4910 


- 48 


5450 


-182 


5990 


- 65 


4920 


- 96 


5460 


- 52 


6000 


-216 


4930 


-107 


5470 


-164 


6010 


-150 


4940 


-231 


5480 


- 64 


6020 


-141 


4950 


- 49 


5490 


- 55 


6030 


-188 


4960 


- 27 


5500 


-117 


6040 


-132 


4970 


- 4 


5510 


-128 


6050 


- 58 


4980 


- 77 


5520 


- 58 


6060 


-183 


4990 


-215 


5530 


-182 


6070 


- 52 


5000 


- 71 


5540 -205 


60B0 -205 


5010 


-220 


5550 


-233 


6090 


_ ■? 

i 


5020 


-242 


5560 


-169 


6100 


-199 


5030 


-215 


5570 


-106 


6110 


- 


5040 


- 89 


55B0 


- 32 


6120 


-155 


5050 


-107 


5590 


- 45 


6130 


-112 


5060 


-231 


5600 


-236 


6140 


-109 


5070 


- 49 


5610 


- 58 


6150 


-176 


5080 


- 58 


5620 


- 84 


6160 


-179 


5090 


- 69 


5630 


-183 


TOTAL: 
81064 
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ama de juego realizado 

d 



d 1 golf para orde: 
programa cuenta con 



ti tttmttttmmMt 

22 't t 

30 t 6 L F t 

i? »l I 

51 't POR t 

Sf 'I t 

7f *t P «ARTIN CIUDAD I 

9? 't t 

H mmrttmtmttt 

'M m INSTRUCIDNES ' 

110 KEYQFF: COLOR 13, 12: SCPEEN?: WIDTH3? 

:L2CfiTE!3,P:=R!NT"F0R}1A DE JUEGO":PRIN 

T: D R:NT' Este es un juego relajado 

, :erc dtiatili|WGÍi, tn el cual 

podras aprueba tu precisión. 

:y PF!»T:PRIHT" Antes de balizar c 

acá golee de bolatendras que elegir e 

! pile con el cual vas a golpea', puest 

o BU! cada uno esvalido pa r a una dis 

t s c i a dete'.'.rinada yen ella j'jega ádem 

is la aleatoriedad. 

tn p RI* T :PR'lNT" Junte con el palo te 
nd'as que decidirla direcciír, siendo 
esta el ángulo queforia la bola con el 
HOYO. Considerandoque la bola esta en 
e! centro de lascoordenadas y el h 
ovo el otro punto. 

!<0 PRINT: PRINT" Para que te sea oás f 
icil, copia en unpapel la pantalla sig 
-:ente «ientras tef aniliarizas con los 
eletentos de juegobasados en el juego 
'eal.":L0CATE26,22:PRINT'PULSA RETURN 

» 

131 OPEN'SRP: "AS#1 : DEFSTR2 

160 Z«!NKEYt!lFZ«"'THEN160 

171 F$«'D2FD4U4EU2D2FD4RU4EU2D2FD4U4EU 
2" 

180 COLOR 15,i,l:SCREEN2:X=5l 
:°9 p 0RI»!T013:READUI:PSET(X,í),l 
200 PRINTtl, UÍ:GOSUBB50:X=M2:NE)(T 
2!0 PSET f 4 , 1 6 ) : PR I NT# I , ■ P AL uer 2 a " : Y 
=30 

229 F0R!MT0l2íREADUf;PSET(!2,Y),l 
Kl PRIMTfl , Ut: 60SUB85Í : Y*Y*1«: NEXT 




ular a Ballesteros desde vuestra butaca mas i 
ones, palos, etc. 




240 PSET ( 1 21 , 16) , 1 s PRINTI | , " ANSULO'di r 
ecciín 

251 LINEÜSf ,Bf)-(2ff ,81 ) , 15;8EEP 
2éf LIHI(175,55)-U7S,lÍ5).I5rMP 
271 LÍWEííSS, &f )-íl?5, tStfSSP 
261 L;KEn5:\100)-(!95,60).!S:BEEP 
2 o ? D SE*;:f*,7S) . l:PRINTt: , "flfsiEEP 
m M p SE t 56) jl! PRINT»:. BEEP 
313 PSET ( ! 63, <3) , ! tPRINTIl , "*90" : BEEP 
TI? D 5E T U3^!6),¡:PRIN T #: ,'!:5':BEEP 
330 PSET (127,76), U PRINTtl , "180' : BEEP 
340 PSET ( 132, 96),l ¡PRINTI!, '225' i BEEP 
350 PSET (163, 109) , 1 : PRINTI 1, "270" : BEEP 
360 PSET(199,96),l:PRINTtl,'315":BEEP 
370 PSET(0, 152), l:PRINTtl, "ANGULOS en: 
eros desde 000 hasta 
380 PSET(0,l62),l:PPINTtl,'359 (TRES C 
I C R AS > y la DISTANCIA 
390 PSET íf, 172) ,1: PP.INTf l f * (J)OS CIFRAS 
). 

400 PSET (2f ,183) iPRINTIl, "PARA SEGUIR 
PULSA UNA TECLA" 
410 2=INPUT$(1) 

¿20 DATAI,N ( S,T,R,U,C,C,!,0.N.E.S,K1 2 

80, W2 250.W3 220, H4 190 

¿30 CATAI3 170,14 160,15 150.16 140,17 

130,18 120,19 110 
440 DATAFW a 99 y SI a 50 
450 PEA TOMA DE DATQS 
46? CIOSE : OPEN " GR" : " AS 1 : COLOR ! 5 , 2 , 2 : SC 
REEN2:X--0:Y=0: C SE T (?,0),2 

¿?0 print*!," m n i n 




480 PRINTtl, 
490 PRINTI!, 



I I I 
I I I 



I" 
II 



I II 
I I 



I I 



500 PRINTtl," 
510 PRINTtl," 

520 PRINTtl," II II III 
530 GOSUB900:PSET(48,B0),2 
540 PRINTtl, "Cuantos JUGADORES" 
550 PSET(96,96),2:PRINTtl,"l o 2" 
560 COLOR i:Z=INPUT$(l):NP=VAL(Z) 
570 IFNP<1ORNP>2THEN560 



I I" 
I I" 

m i' 



58? PSET(150,96),2:PRINTI1,NP 

5°0 COLOR 15: PSET (16, 120) 

600 PRINTtl, "NIVEL de juego de 9 a 0" 

613 PSET(64, 136), 2:PRINTI!, 'Jugador 1" 

620 Z=INPUT$(1) :J1=VAL(2) : IFJP9THEN62 



630 COLOR l:PSET(152,136),2:PRINTt!,Jt 
640 COLOR ! 5 : IFNP« 1 THENJ2> J 1 : BOTO 680 
650 PSET(64, 148), 2:PRINTtl, "Jugador 2" 
660 Z=INPUT$(1):J2=VAL(Z):IFJ2>9THEN66 


670 COLOR 1 : PSET ( 152, 148) , 2: PF INTt i , J2 
660 COLOR 15:PSET(16,176),2 
690 IFJ!=J2THEN730 

700 HC=ABS(J!-J2!:H0=1:IFJ2>J1THENH0=2 
710 PRINTtl, HC'VENTWAS el ¿ugidor^Os 
SQSUB86I 

720 JUE50 EN EL CAWPO 

7?S 6QSUB1640 

740 LINE(0.2 , -«:ü,3).l.BF:LIN , E'0.::;' 

-(255,1?1>,!,BF 

750 IFNP=1 T WEN C G(2)=2 

760 PSET(14,0):PRINT»1."HCYÜ "N" PAR " 

Q; YA' YARDAS" 

770 F0RP=1T0N D :X (?)=*! Y(P)=Y 

780 PUTSPRI7E-,'X,Y),6,°:NEXT 

790 P=HN:I^=!THENP=1 

800 IFHO=NTHENP=H0:60T0 830 

9!0 GOSU3!í70:IFPG(H>0THENP=2 

920 IFPG(2);0ORNP=ITHENP=! 

830 eeSUB9G0:EQSL'B1060 

840 HS (P) *HS • P ) *1 ¡ !FE«íTHEN2*9fELSE50 T 

C 810 

850 BEEP: r 0fi J= 1 T02: NEXTí RETURN 




860 F0RMT36I liHEXT: RETURN 

870 PSET<72. Í83):RETURN 

880 LIHE íf , S 5é > - (255, 191 ) , 1 , BFs RETÜRN 

890 REM DATOS DEL JUEGO 

9#f RESTCRE°3e: c 0RI=lT08:READAt 

910 S«=5t^C-iFi ( VAL ( "ítB- + A* ) ) : NE X7 

°20 SPRITEí ! 1 ) =Sí : SPRITEf (2) =S*: P =RND ( 

-TlífE) 

93« mmmm, 00000000, 000110?!? 

°40 DATAWirtW.lilHllíjflflllM 

95f ammum, 00000000 

960 DATA""uera del Caapo","En el Pecor 
ridoVEn el VERDE", "En las hierbas al 
tasVEn les Arboles", "En el Agua", "En 
la ArenaV c uera del VERDE** , "Er. el HO 
YO" 

970 Dir:t'i:\P$(8),S6(9,2) 

980 F0R! = l T C4:C*(I)="k'"+R!GHT$(STRí(I) 

,l):NEXT:FI=ATV(l)t4:PD=PI/180 

990 F0RI«5T0II:Cfa)*"r*RIBHTt.:STRt(I 

-2),15:WN=i:F=.5 

1000 VEn:Cs(!2)="Ptr.CfU3) = 'Sr 
1 1 r CR ! -?T08: READRi ( I ) : NEXT: RETO 

i02í m ::pu;c del verde 

1036 l:ne'xh-i0,yh-i0)-.:xh^.yk*?m2. 

bf:pse7 (xh, yh) , 15: pset (xh-5, yh+9) . 15: 

RAÍ "lfí 7S2&FRFRflL5L5l6L ,i s PAINTíXH ', YR-4 
:.i5 

1040 RETUr-N "¿0 

1050 REK im DE DATOS Y JUEGO VI DAKP 


1060 PSE—Sc, 157) f 1 : FRINT#I f •JU5ADC-" C 

1070 P3ET {£. ! 7T) . PRINT#1 , "PALIO" 

1080 PSET(44,173),lsZ'«!ílPÜT$"(t):PRINTI 

l ) Z;:Aí=2:Z=INPUT$(l!:PRINT*l.Z::--s^Z 

:G=0:FO?I=!TO13 

10°0 !FZ=C5'I:;kekG=1:C=I:I=H 

1100 *NEX:;;f5=0THENLINE(4¿.lT!-)-'6¿ ( :5 

3) 1 BF¡ 5GTO ' 080 

1110 , IFC>11THENGOSUB1520:GOTOU60 

1120 DD= (13-C+9) t!0 

1130 IFC<5THENDD=DD+(4-C)l20+10 

1141 D=SGN(RND(l)-F)t(RND(l)flBtDD/100 

)+DD-R0(P) 

1150 PSET168, 173) : PRINTSl , "Distan. "DD 
1160 PSET(163,173) I 1:PRINTI1, "Angulo" 
1170 Z=INPUTs(!) :PSET(220, t73),l:PPíHt 
1 1 , Z ; : A*=Z : Z=I NPUT$ ( 1 ) : PRINTI 1 , Z ; : A*=A 
$*Z:Z=INPUT«(l):PRINT*l,Z:!=Ai+Z 
1 180 AA=VAL(Z) : IFAA>359THENLINE(21 1 .17 
3)-(255.1B3U,BF:50T0 1170 
1190 A=AA A SEN(RND(P-F) t (RND(l)tB + RO!P 
)U7):RO(P)=0:5=0 
1200 X=INT(Dt.54tC0S(AIPD)):X=X+X(P) 



DOnfZDQfflQC 

I l\UUl\lll II u 



1210 Y=lNT(Dt.45<5IN(AtPD))t(-t):Y=Y* v 
(P) 

1220 IFK(Pl = 117HENIFC013CRRND(i)>.?TH 
ENX=X(P):Y=Y(P) 

1230 IFX<0THENX--0:G=iELSEIFX>252THENX= 
252:6=1 

1240 IFY<5THENY=5:5=íELSE!FYM52 T HEf¡Y = 
150:6=1 

1250 IF5«lTHENGOSUBl3fc0:GQSUBB70:«>PW 

*1,R»(0):6OSUB860: RETURN 

1260 IFXM=XHAND v * fl =YHTHENGCSUB 1 3fcf : 50 

SUBB70:PRINTI1,RÍ(B>:P6{PÍ-2:TFPB(1WP 

6(2) >2THENE= 1 : RETURNELSEPETURN 
1270 IFX*4>XH-!lANDX+«aH*!iTHENIFY*4> 
YH-1 1 ANDY+4< YH+ 1 1 THEN50SUB 1360: 505L'B87 
0:PRINT!l,Rs(2):GOSÜB860:PGíP)=l:IF?6( 

1 ) +P6 (2) «1THENRETURNELSEE* l : RETURN 
1280 K(P)=POINT(XH,YM):6CSÜF1360:GOS 
UBB70 

1290 IFK(P)=3THENPRINTil,R$(3):R0(P í =R 

ND(l)í40/100íD:GOTO 1340 

1300 IFK(P)=2THENPRINT41 ) Rs(l) ! G0T013í 



1310 IFK(P) «7THENPRINTH , Rl (5) f SOSüSiÉ 
10:GOTO1340 

1320 IFK(P!=11THENPR;N'41.R$í¿)¡60T013 
40 

1330 IFK(P) = 120R''(P , =l¿'HEH co lN T 4!.F$f 

4)!GOTO1340 

1340 GOSUB860: RETURN 

1350 REM MCVIKIENTC- DE LA PELOTA 

1360 IFP=1THENH=15ELSEH=1 

1370 IF6=1ANDE=0TO1¿20 

1380 G0SUB3 ! 30 : P'JT5P C 'ITEP . : * , Y ! , H , P 

1390 X(P)=X:YÍPl=Y 

1400 RETURN 

1410 REM COMPROBAR SI VERDE 

1420 IFX*4>XH-!lANDX*4<XH+liTHEN!FYM; 

YH-llANDY i 4<'YH4i 1THEN1430ELSE1380ELSE1 

3B0 

1430 IFX>100TH£NX=X-20 

1440 !FX<100THEVX=X-20 

1450 GOTO 1380 

1460 REM PROXIMIDAD 

1470 IFNP=1THENPET'JRN 

1480 F0RI = lTC2:Su)--SCR(ABSí(XH-X(I)! A 

2) *ABS((YH-Y(I)í A 2)):NEXT 
1490 P=2:IFS(1)^S(2)THENP=1 
1500 RETURN 

1510 REK DISTANCIAS CORTAS 
1520 PSET { 68, 1 73 ) : PR INTti . "Distan. PS 
ETÍ132,!735.!:I=INPUT$(1):D=VAL(Z):PRI 
NTIl,Z:PSET(ia0 1 173).l 
1530 Z=INPUT$ ' 1 ) : D=DU0+VAL (Z) : PRINTI 1 















1540 X2*="Manno PW=99. SI=50" 

1550 PSET (68, 183) ,1 

1560 IFC=13ANDD>!0THEN1570ELSERETUPN 

1570 PR INTt 1 , X2* : GOSUB860 

1580 LINE(6B,173-)-(255,191),l,3F 

1590 GOTO 1520 

1600 REM AGUA 

1610 FORI=lTO400:NEXT:X=X-l:Y=Y-i:GOSü 

B3220 sPUTSPRITEP, tX,Y) ,H,PfKfR)«POINT1 

X+4,Y+4):!FK(P)=7THENl610ELSEX(P)=X:Yf 

P) «Y j HS (P> =HS ( P) ♦ 1 : RETURN 

1620 HS(P!=HSÍP)*1: RETURN 

1630 REM DIBUJO DE HOYOS 

1640 N*H+l:C0LOR 15, 1, 1:SCREEN2:LINE(0 

,9)-(255,156),12,BF 

1650 0NN60T0 1570, Mí, 1880, 1940, 2050, 

2130.2200,2280.2350 

1660 REM HOYO 1 

1670 COLOR ,1,I:CLS:LINE(0,9)-(255,156 
),2,9F:DRAW"Br-13 l t ?C;2F2DR2F3R2ER2F2*EU 
2ER2F3D2F2R2^3D'2F3R2^R2FF;3FR4F2R3F3R2F 
4RF3R2F2R3FR4FR2FR3ERERE2RE2P2F3D3FF2F 
R4E2R2ER3F3RF2RFR2FR5F4RFR3FF:2E3U8ER2E 
3U3E2R2E3R2EU6ER2E2U4EÜ3EU3E2R2E3L 174" 
:PAINT(15 f 10),I2 

1680 DRAH"BM0,69R3ER2ER3ERER4FR2FPFP2F 

RF7D2FD2FD2FD3F2R2FR3FR2FR3 I: 3F1SRER2E3 

R2FR4FR3FR4FRD3FP2F2R4ER3E3R2ER4E3R2EF 

6F3R4F2R3ER3ER3ER2FR4E3R2ERE2RE3R5E2RE 

2R3ER2ER3E6R2EP6ER3ER2E5" 

1690 DRAWU7E7U4ÉU5E3R3E2R3ER5E2R7D103 

L255U86":PAINT(250,155),12 

1700 DRAK'BM55 1 97C7D3FD4FD563LG2D3FR4F 

2R5ER4E2U3E2RER2E3R2FR6ER3ER4E3R2E2REF; 

2E2U4E2R2E3U4EU2E2U3H3L2HL4HL6H2L2H1L2 

HL3GL263L2GL2G2L3GL7HL2HL3HLG3D3GD3G2D 

5FD6L2R4 " : PAINT (58, 97) , 7 

1710 GOSUB2420 

1720 DRAN"BM167,85C11R9E3U3E2R6E2U22H2 
L4GL4D2L3G2L3G3D25E":PAINT(169,63).1Í 
1730 DRAH"BM192.20C11R2F2R9EF:6FD4FD5> : D 
8G2D2GL26L4GL5H3U¿E2U5HU3H3'J3E2L'2":PAI 
NT (200, 30), 11 

1740 LINE(223,9)-(2«3,29),12,BF:DPAW"B 
M226,28C15U17R2D7LU6R3D5LLMR3D3LU2R3DL 
BM233, 19C15D" 

1750 COLOR3:PSET(50,68);DRAWF$:PSET(Í2 
0, 95) : DRAWFS: PSET ( 135, 82) : DRAWF*: PSET ( 
150. 62) : DRANFl: PSET (206 . 70 ) : DRAWFS: PSE 
T(220,50):DRAHF$ 

1760 XH=233:YH=19:Q=4;YA=477:HN=1 
1770 X=2:Y=10:6OSUB103« 
1780 REM HOYO 2 





OQi~h~ OQi~iOC 
i l\UUl\l II II l-i 




1790 DRAW"BH0,135C2RE5RE7UEUEU2EÜ2EU2E 
U4EU3EU7EU28HU3HU2HU2HU2HU3EU2E5RERE2P 
E3RER2ER2ER2ER18FR1 1EP3EREREP3ER3FR2F2 
R2FP3FR5FR5ER3ER2EF:2EP,10FR16FP6Er\5F3? c 
RFR2ERE3RERER12ER3FR5FR4EF3ER4EPER9ERE 
R2ER4FRFRFD8GD4G5DG5D2FDF2DFRFRFP2F2D2 
GL4G2D2" 

1800 DPAW"GD5FD2FD2FD6FD3FD3FD C 3DF2DF 7 
BM0,156R20U3EU2EUEU3EU3E2RERE2RE!1UE2U 
E2UEUE3UE5R2FRFR2Ef:3E2FE?:EF2ER9FF3F^F 
FR14ER2ER2ER2ER2ERER9FR2FR2FRFR2FR9ERE 
REF.ERERE2RFRFRF3D3C-4F45P40IJ¿6 " : PAINT (9 
0,50), 2 

1810 DRAW"BM131,9C7D4F3DFD2 C D4FD2F6RFR 
FÜFDFD3FD4F3D2FD2F18D2FD4FD6FRFRF3RFD2 
FD4F3R2FBF4D36LGIGL3HL2HLHLHL3G4D2GDFD 
2FDF26DGDGDFDF4DFD3GD3F2R3FR4FR2F3R2FR 
4ER2FR2FR2FR6FR5ER3E2RE2PEUE'J6H2U9HU4H 
U4H2LHU3HLH2LHLH2L2HL5H2U3H11U3H5LHU2H 
LHL3H3U2HLHU2EU4" 

!820 DRAW"E2U6E8U2E3RE10EÜ2EU7EU5HUH , JH 
3L7F6D5G4D2S4L2G4D3G3D3G¿D2GD2G5H3l!6HU 
3H3U3H5U2H4U2H5U7H2Ü2L9": PAIKT (220, 136 
),7:LINE(180.98)-(220 t !02),2.PF:LTNE'l 
50,73)-(220,77},2.BF 
1B30 GOSUB2420 

1840 DRAW n BN140,72C!lEP3 r R6F4D7F3D4F3& 
5L7H3L3H5U4E3U2EU2H2U3BH240,90D7FRFD46 
2L4HL3HU3E3U3H3L3H3'J3H2U4E3R5ER2F3D10F 
2" : PAINT f 1 4 i . 72) , 1 1 : PA I NT ( 239 , 90 ) ,11 
1850 C0L0R3: PSET (40, 40) ; BRANF*: PSET(60 
,42) :0RANF«:PSET(7B,38) : DRAMFt : PSET (30 
,55) : DRAWFI; PSET(47, 53) : DRAWF*: PSETÍ72 
, 57) : DRAWFf: PSET C224. 40) : DRAWFI: PSET (2 
15,58) i ÜRANFIj PSET (200, 48) : DRAKF1 
1860 XH=245:YH=146:Q=5:YA=4e2:X=10:Y=l 
45:GOSUB1030 
1870 REM HOYO 3 

1880 DRAW"B«25, 33C2E3 e 2E*7FPF5RFDFD r D' : 
RF5R2FR9ER9FRFR2FR3 C R5ER10FR2FR5FR9£P5 
ER4ER4ER3ER6FR8 r F9E c 3cF.¿ER2ER2ER3ER2EP 
4ER4ER4ER9FR4FRíFF,2FR c FFRF5D6GD2GDGD2G 
D4FD2FDFÜFRF6RFRFFD P DFD252L2GL4GL2G 5DG 



2D4FDFDFDGL2GL464DG5LGL4HLH6L4GL2GL36L 
4HL2HLH3" 

1890 DRAWLU3HU6K'J2HLHLH2UH , J4HU2HUHU2H 

UMUH2L3GLGL67DGDGDGDGDGD5D2GDGDGDGDGDG 

DGDG2DG2DG8LGL25LGL3GL6HLHLH2LHLHLH2LH 

L35L2GL2G4L2GLGLGL2GL3GL3GL4GL5GL5GL66 

L6HL5HL3HL2H1 H3UH'J9E , JBHÜH3LHUEÜ5HU*EUE 

, JEUE15L , 2EU2EL , 4HÜ7E4 , J3EÜ3HU3HUHU2HU2HU5 

•:PAINT(50,50),2 

:°00 GOSUB2420 

1910 DRAWBMieo.^ACi *.EUEREF'2ER3ER4ER4 C 
D-D2FD3GD5GL25L7HL<WL:Hl'2HÜ4BH210, 981-4 
EL , :E7R3EP2FDFD4FD757D3G6L4G12HU3HLJ£E!1J 
:^WINT<lf0,5i),Ü:PA!NTt2|0,lí0í,ll! 
CIRCLE(Í85,95) , 12. 1 1 ,,,.•: PAINT ( 135, ?! 
! , lIsClRCÜMlí, U51 ,18,7,., , Í.2iPAINT< 
110, 115). 7 

1920 XH=223: YH=68:9=3: YA=368: X= 15: Y=l t 

B:GOS'JB1030 

1930 RE" HOYO 4 

1940 COLOR ,l,l:CLS:L!NEie.9)-(255,156 
),2.BF 

1950 DRAWBH187,9C7L!31FRF3D2FDFDF3D r J 
c 4DF5RF9DFD2 p D2FDFD2F 5 K r ?, r 4F:F3RFD2FDFD 
FP4RER4ER5F4PFREPERE'JEPEPE3L'2EF.E13 I JE:!J 
E , JE'JE2'JEU6E3UEL' 7 E , . l 3H:j3E , JE!f-:PAINT(70, 
10), 7 

1940 D. s AM'BH0,92C!2EíFE: : E:üE5F,E2RE3R2 
r R- : : r 3RF2R4FRFRFj"í r !i"C"C2FD5FD9FD FÜF 
DFÍíPFP.FP4FR5FR3ER2EP-2EREF:ER2EREPEIiE7P 
EP3FR3F^3FR2FR2RéF5FF3RFRFRFR2FRFRFRF 
F¿E c °EPERERE3L , EÜEU2E'jE'_'E2F2EFEFEF.3EP 4 E 
'5EP2E3'JEU2HL , 2EUE'JEc , J:E,'E , . , íEU6EUE2RER3 
E=!EP4EP;0ER2ER3' 

1"P LINE'0,156)-!:r5,:!6:,12:PA.:N T (5, 
90), 12 

!°?0 6CSUB2«20 

19*0 DRAW-BM133, 11BC11E=F3R2EUEU2EU3ER 
« c, P8F4D<GD2GDGL8GL8H!.4HU2HL3HU3Bf1155 
,7BE!5R4FR3FD3G4D3cL^ , 2HL2604GD3G3L2GL 
3^3L , !B!1138,23E5R4^D6 r D=GDl«GLH6U:iH4U 
9B"2! 1 , 70E3R2EU5E5R 1 9F4D61763L126D55D5 
:-'.3HL2HÜ4HL'2" 

2000 p AINT(133 ) 122),ll:FA!N T (156,79),l 
!:PAIN'T(198,23), 1 1 : D A!NT'2!2,70),11 
2010 COICR3:PSET(40. ¿5) ¡DRAWFI: PSE T Í60 
.30! :DPAWFI:PSET(65, Iff) :DRAWFI:PSET(8 
5,115): DPAWFI: PSET (17!. 108): DPAWFI: P3E 
T ' ! °3 , 1 00) : DRAWFt : r SE" ! 2 I * , 8 7 ) : DRAWFi 
2020 XH=240: YH=2S:2=4; *A*485: Y= 13 
2030 GOSUB1030 
2040 W HOYO 5 

2050 DRAW"BK0,1!8C2E5F:EREF2ER«EF3ER3ER 
4ERER2ERE2RE8R2E4R3ER4ER i E Q 2E2R3E7'JE7R 



ERER3FR6FR4FRFR2FRFRFR2FR3< r R4FPHEP4ER 
E4UEUEUE5RER6FR7ER3E7UE3U2EP3ER3ER2EU2 
EU2EUEU2EUERE3RE7UEUEUEUEUEUER26D30G2U 
26Ü46Ü11GD6D2GD6D615D5L53L5LE6BE03FÜ76 
D55D63" 

2060 DRAWDGDGD&D2GDGD&2DGD&D54LE6L262 

L2GL3GL4GL4GL2GLGL45L4HL3HL2HL3HL3HL6H 

L3HL2HLHL2HL2HL2HLHL2HL3GL3GL5LS2LG2LG 

5DG2LG2DGLG2L2GL5HL5HL3HL66L'7GL6GL4GL 

2GL2G2LG4L39":PAINT(12,115! ) 2 

2070 6OSUB2420 

2030 DRAW"BM152,123CHE2 P 3FR2F!F.4EFFD2 
G2L6H2L4HL2HLHU3BH1 8 1 , l 2f E5ÜE3ÜRER7EÜ3 
EU3ER4FR3F2D5FC7GDL2GL:D3L5D2L25¿L¿G3L 
3HU 2H 2U6 BM 1 6 4 , 70 E 3L> 2 E 2 F. 3 ? r D 4 G D 4 6 D 2 G DG L 
3H2U2EU4HU5B«195,!9EU3,-2 , J2F3'J2F6L i 2R3D2 
R3D2L2D2G4D3GD2L:C!lGL5HL'3H , . ! 2HL , í3^242, 
46U2EU2 

2090 DPAW"EUE , JEUR7FD3L3CÜ2L2D2L2D6GD2G 
LHl'AHWE' i PAINT (156, 123) ,12: PAINT ! 185, 
120) l ll:PA!NT(166,72!,:i: p AINTíl98.59: 
,11 ¡PAINT (248, 42), 11 
2100 C0L0R3: PSET (20, i 135 : DPAWFI: C 'SET ¡ 3 
5, 108) : DRAWF$: PSET (50, 98) : DRAWFI ¡ PSET ( 
65, 103) ¡DRAWFI: PSETÍ7?, 9 a ) ^AWFI^SE* 
(90, 92) ¡DRAWFI; PSE T (95, 75) ¡SRAWF*;PSET 
(115,82):DRAWF* 

2110 XHs246:YH=18:O*4:YA=í05jX=5:v«:46 

:GCS'JB1030 

2120 REM HOYO 6 

2130 0RAW n Bíl2l,9C2F3D2 r D2FD2FD3FDF2DF2 
¡>5GD3GDG2D2GD7FD-D2 c D°FP!!rD!™D253D57 
DG3D2 F DFRF3RFRFR2FP7FR!FF3~P3 c Ff DFPFP2 
FR3FR5FR4FR19ER5ER12ER!0 r F c R2FPFRFRF2R 
FR2FR2FRFRFR2FRFP2FR4FP17EF 19FRÍ5FF 10F 
R 1 4FR4FR3FR4 " 

2140 DRAH"BN21 , 9R51FDFD8GÜ4S02GD26Ü26D 

6FD2FDF3RF2DFDFD15FD4 r ÍF;FP2FRFR4FR9ER8 

ER5ER4ER9FR3FRFRF2RFRF2pF c 2FP.3F c íEFíEP 

!4FR6FR3F2Rr3RF5D c 8RFRfP2 r P«2";2 r =3FR 

25 , :PAINT(25, 105,2 

2150 GCSUB2420 

2160 DRAN"BN4B,2BC11EL'2E«3E5R3ER3FD3G 
D2GDGD2L2FD2L6D2L8HU2HU23 > !34 I 52E10R5FR 
FD3GD4GD3GL3G2D3L3GL3U' J 2ü2H'J! J L'3": PAINT 
150, 28) , 11 : PAINT (45, 48) , i ! : CIRCLE (64, 1 
18) , 20, 1 1 , , , . 7 : PAINT (64. i 18) , 1 1: CIRCLE 
(135,955,25,7,, , . 7: PAINTí 135. 95) ¡7 
2170 C0L0R3: PSET f 175,95): DPAWFI: C :E T ( 1 
B7, 106) j DRAW$: PSET ( ¡9« , 95) : DRANFlsPSE 

T(200,l08):DRAWFI:P=E'(209,l!l):DRAWFl 
:PSET!220,112):DPAWF$ 

2180 XH*4liYN«i8jQ«4:YA«4S3:X«25f:YsH 
2:6OSUB1030 
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2190 REÍI HOYO 7 

2200 DRAWBK35, :03C2H4U6HU4EU6EUEF:E C :3E 
R2E , JE'J2£U2ERE , JE ! JEKE c :4ER5EPE4UE4R2EF.i0F 
R3FR2FR2F R2FR4FR i 1ER5ER2ER3ER45R4FR7FR 
3FR3FR2FR2FR2F=:2 C R2FM' : R5EF3ER2ER2ER5E 
R2E9E4üE6UE2 c E2''EP2ERBFRF?DF6DF2D2F3D2 
F2D2E3L25L35L35Lí5L5GL264D5D¿F!)9GDí t: D: 
05D4GD" 

2210 DPAK"S3LGL.23L8HL7HL7HL5GL3GLí-L52L 

2EL!HL4HL2HL3 U L:^L2HLHL2H2L2HL!0GL4GLG 

LE152L52LB2LS2LS2L2B2L452L3HL2HLH3L2HL 

u LHL4HL5GL7E2L3GL3G2LGLGL6L4Hl , HL | 4EL I 3EL' 

2EU3Eül3'sPAINT(37,o«í) l 2 

Z220 GCSUB2420 

2230 CIRCLE(80, 98) . 23, 11 , . 3: CIRCLE (« 
0\ 1 18) , 19, 1 1 , , , , 5: P AI'»T (80, 85) , 1 1 ¡ PAIN 1 
T(9l,il8),il 

72*0 CCL0R3:FSE T ;13^^B):DRAWF$: C 5E T ^ 
::i.!04):DRAWF! : t>SE?(15!.,l2e):DRAWFl¡P 
SETÍ17P, 107) ; DRAKFi: PSET ( 18* 1001 ; dm 
c l:PSE T (i94 ( ::2!:ÜPAWF$:PSE T (20?,!02): 
IXPAHFí: PSETÍ58, 5 C > : DPAWft: PSET (70, 651 ; 
DRAWFí 

2250 PSET (74 ,51 ) : DRAHF*:PSET (64, 62» : D* 

AWr«:PSETÍ95,53>:DRAWF$ 

2260 XH=50: YH=!?0: 0=3: V A=342: NH- 1 : 1*2* 

0:v=!7:GOSUB!030 

2271 M HOYO 5 

2290 DRAK'BK! , 1 Í6C2E2RERE3RERER3E4R2ER 
EÜS7SERER2ERER2SRER3E3RE4R2EPE7RERERES 
2ER3ER3ER4EP°FP4-R5FR7FR5FR4FR4FRF2R2F 
RFRF5RF5RF7RF9R2F2R2FR4FR11ER4ER4ER4EF- 
4ER14FR3FR4FR2FR3FR3FR4U138L153D263L67 
D35D56D35D66D350!GD!52LGL35L2GL5?LGL2G 
L*5L3S' 

22°0 DRAH"L2GL6i2S5LSLGl0LG2LGL2GL4GL2 

5L3S9l2':PflINT(2lf,2#),2 

2300 GOSUB2<20 

2310 DPAW3M130.30C7EÜ3EÜ2EUE2REPEFER3 
r R3 r R2FRFRPDF9R [: RFR6FR2FD2FDFDF3RF2RF3 
D3FR21FR5ERF2DF2D4G5D2GD2G0G2DGD¿ C DG¿L 
:6L5H14HL5HL4HL46L6L4FÜF5R5FRFRFFFRFRF 



2HLHL2HL4HÍ.5&L2&DGDGD6LGL2GL4HL2HL2WL3 
53H3U2 

2320 DRAH'HUH3L3HL6HUHU2HUHUHLHL?HL3H2 
'J2E3RERE2RE5U2H5E2RERE2UEU5H4U2E2REU3H 
UHUHU3HU4HU3HU 1 2" : p A I NT ( 1 80 , 1 00 ) . 7 
2330 ÍH=240:YH=28:Q=4:YA=470:X=2:Y=!34 
:G0SUB 10.30 
2340 REM HOYO 9 

2350 DRAH'BM0,70C2F2?FPFR5FF11ER4ER4ER 
4ER7FR2FRF2RF2P.2FR3FR8ER3EF2ER2ERERER2 
E3R2ERE2RER2ER6FR2FRFRF2RFRFRFR2F2RFR2 



FR3FR1 1ER3ER2ER2FDFDFRF2RF C :FR C RFRFRFD2 
FD563D64DGD6D4FDFD2FDF5BFB36D26B6D2&3D 
GD3GD1 2R87U20H1 3L3HL3HL4HL3HL3HLH6UH3U 
7EU2EU 

2360 DRAWE2U2E2U3EU7EU4EU2EUEU4EU5EU1 

2HU3HUH5LH2L4GL5GL25L6GL7GL14HL2HLH2LH 

LHLHLHLHLHL3HL6HL4HL4HL4HL2HLHU2HUHU2H 

2U3L120":PAINT(0,11),2 

2370 GOSUB2420 

2380 DRAWBM7, 48C1 1 EU4ER3FRD3R4D2R2F3D 
FD2FD2FD2GL2HL2U2H2L5H6U3":PAINT(10,48 
), 11:CIRCLE(70,62) , 24, 1 1 , , , . 44 : PAINT ( 6 
8,60),ll:CIRCLE(176,70) I 17,ll )n .5:PAI 
NT(176,67), 11:CIRCLE(75,9),26,7;-,,.7:P 
AINT (75,9), 7 

2390 COLOR3:PSET(25,12):DRAHFf:PSET(*0 

,10) :DRAWF$:PSET(102, 23) : CRAWFS : PSET ( 1 

10, 15) : DRAWFi: PSET ( 119, 25) : DRAWF* 

2400 'XH=10;YH=23:Q=5:YO=4?':?=248:Y=14 

5:GOSUB1030 

2410 REK ARBOLES 

2420 COLOR 14 

2430 FORI=0TO255STEP20 

2440 FORY=14TO140STEF18 

2450 A=POINTU-3,Y-3);B=PCIN7(M0,Y-3 

) :C=P0INT (1-3, Y+10):D=POIN"í ¡*10, YM0) 

7U9 !FAM2ANB8»12AN0C«12ANDD*12THENPS 

ET(I,Y),12íPRINTIi,'l' 

2470 NEXT: NEXT: COLOR 15: RETURN 

2480 REÜ JUEGO EN VERDE 

2490 !FPG(1!=2ANDPG(2)=2THEN2760 

2500 IFP6(1)=2ANDNP=1THEN2760 

2510 COLOR 15,1,1: SCREEN2 : L 1 NE í 25, 9 í - ( 

230,156), 12, BF¡XH=127:YH=80:CIRCLE(XH, 

YH),3,i¡PAINT(XH,YH),l:PSET(90.0):PRIN 

Til. -V E R D E 

2520 F0RI= 1 T02: IFP6 ( I ) =2THENX ! I ) =XH: Y í 
I)=YH:NEXT 

2530 IFPGíl)=2THENP=2ELSEP=l 

2540 IFHO=NTHENKS(H0¡=HS(H0i-l 

2550 REM POSICION EN VERDE 

2560 X=INT(S6N(X (P) -XH) IRND 1 1 ) *100*XH) 

2570 Y*INT (S6N( Y (P) -YK) fRNO i 1 ) t70*Y») 

2590 GOSUB3?50:GOSUB1360 

2590 IFF=lTHENP=2:lFPG(2)=20PNF = rHE\* 

-tí SQTQ 2620ELSE2560 

2600 REM JUEGO EN EL VERDE 

2610 5QSUBI470; I FPB C 2 > «2THENP» 1 EL9E I FP 

G(1)=2THENP=2 

2620 UNE (0>156) - (255, 1 91) , 1 , BF: COLOR 
15.'PSET(e6,!!7):PRINTIl,"JUGAD0R , P 
2630 PSET(50,173::PRINT*1, "Distancia* 
2640 PSET(!32,173),1:Z=INPUT$(1):D=VAL 
(Z) sPRINTIl , Zs :Z=INPÜT$(i) -PRlNTil, ?s D 



=Dtl0+VAL(Z):IFD<lTKEN2620 
2630 D«S5N(RNDü)-F)tD!,l*RND(i)*D 
2660 PSET (163, 173) , hPRINTtl, "Angulo" 
2670 Z=INPUT$(1):PSET(220,173),1:PPINT 

*l,Z;iA$*Z:Z=INPUTI(l)!PRINT*l,Z;:At=A 
t+Z: Z=INPUT*( 1) :PRINT#1, Z: Z=At+Z: G=0 
2680 A*VAL(Z) : I FA >359THENL I NE ( 2 1 1 , 173) 
- (255, 183) , 1 , BF; GOTO 2670ELSEHS (P) =HS ' 
P) + l 

26"0 X=INTCDtCOS (PDtA) ) : X=X (P) +X 
2700 Y=INT(DtSIN(PDtA))!(-l):Y=Y+Y(P) 
2710 6OSUF3050:GOSUB1360 
2720 IF6»1 THEN6OSÜB870: PRIRTt i , Rt (7h 6 
OSUBB60:GOTC 2?40 

2730 IFR*1THEN60SU887I :R*f » PR1NTI1 , R*(' 

8) : IFP6(l!+ c 5'2)= 4 THEN2760ELSEGCSUB3¿í 

:PUTSPRI T EP.(e,0).0:GOTO 2610 

2740 BQSUBBi&rSQTO 2610 

2750 REÍI CLASIFICACION 

2760 F0RI=r02:T(i;=T(I) + HS(I):S6(N.P 

=HS(I):NEXT 

2770 IFHS(1)>HS(2)THENHN=2 
2780 IFHS(2)>HS(DTHENHN=1 
2790 COLOR 1 5 « 13, 1 : SCREEN1 ¡ KEYOFF 
2800 L0CATE7, 0: PRINT-CLASIFICACION 

2810 L0CATE7, l:PRINT" 

2820 L0CATE2,2:PRINT"HOYO PAR J 
1 J2 

2830 LOCATE4,4:PR!NT"l 4 

2840 LOCATE4,6: PRINT-2 5 

2850 L0CATE4, 8: PR1NT"3 3 

2860 LOCATE4 , l« : PRINT"4 4 

2B70 LOCATE*, 12: PRINT"5 4 

2880 L0CATE4,14:PRINT"6 4 

2890 L0CATE4, 16:PRINT"7 3 

2900 L0CATE4,!8:PPINT B B 4 

2910 LOCATE4,20:FRINT"9 5 

2920 It*STR$ ( T ( 1 ) ) : 60SUB31 00: T7i=I$: \t 

«STR*(TI2));5QSÜB31«sTB<*!Í 

2930 L0CATE2, 21 :PRINT" 

m 

2940 LOCATE!, 22 :PRINT n TOTAL 36 

T7$j ¡ I FNP=2THENPR I NT " 'T8* 

2950 F0RI=IT09: IFS6(I, 1)=0THEN2990 

2960 r$*STRi(S6(!,l)):6OSüB3t00:T5t-!$ 

:I$=STR$(S6(I,2)!:5OSUB3100:T6l=Ií 

2970 YM 12*2: LOCATE 1 6, YiPRINTTSi.'lFNP* 

2THENL0CATE23,Y:P'INTT6* 

2980 NEXT:FOPW=lTQl60f:NEXT 

2990 FORI s lTO2rHS(I)=0iP5(I)=0sX (!)=«: 

Y(I)=0;NEXT:E=0 

3000 IFN=9THENC0L0R 12, 15, 15:SCREEN3: ? 
SET(75,40) , 15:PRINTtí . 'OTRO' : PSET (60, 1 
20) , 15: PRINTtl. "JUEGO" :60T0 3020 
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3010 RETURN730 
3020 WÍ=INPÜT$(15:IFWl='N"0PWÍ='n"-^N 
CIS: PSET (60, 80 V.5: PRINTtl , "ADIOS" : GOS 
UB860:COLOR 15, 4, « ; SCREEN0 : END 
3030 RUN 460 

3040 .REH FUERA VERDE Y HOYO 



3050 
THENX 
3060 
150: G 
3070 



6=0: IFX<24THENX=24: G=1ELSEIFX* 226 
=226:5=1 

IFY<57HENY=5i5=mSE!FY>í5lTHEMY= 
=1 

IF6MTHENRETURN 

IFX<XHAKOX*B»(HANBY<YHAND¥*B>YHTH 



ENPGíP)=2:R=liXí c l=yM:Y'r^YM 
3090 RETÜRN 

3100 !FLEN(Ii)=2 TU ENtt=" "♦!$ 

3110 RETURN 

3120 REM SONIDO 

3130 r ORI=0TOl3:SOU^:, f:\rn 

3140 3OUNÜÍ0,20 

3150 SOUN0!2,4 

3160 FGM=ITO200:NEX ? 

3170 S0UN'D13,52 

3180 F0FI = lT01S5:NEr 

3190 S0UND6.31 

3200 50UND13, 3 

3210 RETURN 

3220 FOFI=0 t O:::S3UND:,í , :NE)(T 
3230 SOUND10.16 
32*0 SOUND12, 1£ 
3250 F0RÍ«ÍT03ttílfEXT 
3260 SCUND13.5 
3270 RETURN 
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290 


-173 


590 


-250 


990 


- 


1190 


- 68 


1490 


-140 


! 790 


- 16 


2090 


- 18 


2390 


-143 


2£?0 


-;s¿ 


2990 


- 39 


TOTAL: 


300 


-157 


600 


- 42 


900 


- 9 T 


1200 


-219 


1500 


-142 


1800 


- 34 


2100 


i 77 
1/ J 


2400 


-124 


2700 




3000 


-106 


33837 
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' 



























3. GRAN 



PROGRAMA 



i: 



CONCURSO 



DEL AÑO 




CREA Y ENVIANOS TU PROGRAMA 
HAY PREMIOS PARA TI Y PARA LOS QUE 
TE VOTEN. CADA MES PUBLICAREMOS 
MAS DE UN GANADOR QUE OPTARA 
UNA FABULOSA UNIDAD DE DISCO 



BASES 



1 - Podrán participar todos nuestros lec- 

tores cualquiera sea su edad, con uno 
o más programas escritos en BASIC 
MSX o código Máquina. 

2 - Los programas se clasificarán en tres 
Sorías: 

ivos 
B — Gestión 
C — Entretenimientos 

3 - Los programas, sin excepción, debe- 

rán ser remitidos grabados en casset- 
te virgen, debidamente protegida den- 
tro de su estuche plástico en el que se 
insertará el cupón-etiqueta que apa- 
rece en esta misma página, debida- 
mente rellenado. 



CORTAR O FOTOCOPIAS. 

I ■ 



4 - No entrarán en concurso aquellos 

programas plagiados o ya publicados 
en otras publicaciones nacionales o 
extranjeras. 

5 - Junto a los programas se incluirán 

en hoja aparte las instrucciones co- 
rrespondientes, detalle de las varia- 
bles, ampliaciones o mejoras posibles 
y todos aquellos comentarios que el 
autor considere de interés. 

6 - Todos los programas han de estar es- 

tructurados de modo claro, separando 
con PuEM los distintos apartados del 
nxlsmo. 

PREMIOS 



7 - MSX EXTRA otorgará los siguientes 



1 




L 



TITULO 



CATEGORIA 

PARA K 

INSTRUCCION DE CARGA 

AUTOR: 

EDAD: 

CALLE: 

CIUDAD DP TEL.: 

N.° DE RECEPCION 











premios: 
AL PROGRAMA MSX EXTRA DEL 
AÑO 

Una Unidad de disco 
valorada en más de 80.000 ptas. 

8 - Los programas seleccionados por 

nuestro Departamento de Programa- 
ción y publicados en cada número de 
nuestra revista recibirán los siguien- 
tes premios en metálico: 

Programa Educativo 10.000 pts. 

Programa de Gestión 10.000 pts. 

Programa de Entretenimiento 

6.000 pts. 

9 - MSX EXTRA se reserva el derecho de 

publicar fuera de concurso aquellos 
programas de reducidas dimensiones 
que sean de interés, premiando a sus 
autores. 

FALLO Y JURADO 

10 - Nuestro departamento de Programa- 

ción analizará todos los programas 
recibidos y hará la primera selección, 
de la que saldrán los programas que 
publiquemos en cada número de MSX 
EXTRA que pasará a ostentar la pro- 
piedad de los mismos. 

1 1 - Los programas recibidos no se devol- 

verán, salvo que el autor lo requiera 
expresamente. 

12 - La elección del PROGRAMA MSX EX- 

TRA DEL AÑO se hará por votación de 
nuestros lectores a través de un bole- 
tín que se publicará en el mes de octu- 
bre de 1987. 

13 - El plazo de entrega de los programas 

finaliza el 15 de noviembre de 1987. 

14 - El fallo se dará a conocer en el núme- 

ro del mes de eneso de 1988, entre- 
gándose los premios el mismo mes. 



REMITIRA: 
CONCURSO MSX 



RocaiBatUe, 10-12 
bajos 

08023 Barcelona 




w i t\ UüKru iru 
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REDEPUTIENDO 

ZTZ ~ 7T7T 



Programa de utilidad realizado 
oor Ignacio Sáenz 



Este programa de utilidad os permite redeí 



12345678 



if Islll 



J^M A LETRA A DEFINIR? A 



1 

110 

120 

130 

150 
160 
1 7 
180 

in 

200 



03 mmmmmmmtHt 



REÜEFINIENDC 



S-ENZ 



n 
t 
t 
t 
t 
t 
t 
t 



tí 

't 

't IENACIO 
't 

'* PROGRAMA DE UTILIDAD 
't 

t MSX EXTRA 
't 

•ttOCUPA 2888 PY T ES +6- t* 

ttmmmtmmmmt 

210 KEY 1 , "gofo 460 "+CHPÍ C 13) : R= 1 

220 SCPEEN 1 : KEYOPF : PR I NT " OEF I NE CUALQU 

ief; letra con una escala de 8x8; los <1 
>s:gnifica-ran punto pintado y los 

Cf) SIN PINTAR. DESPUES DE CADA LIN 
EA HORIZONTAL DA RETURN" :PRINT:PRINT" 
12345676":PRINT 

230 'mmtttmtutunmm 

240 '» DATOS DE COMO SE VA HA t 
251 'I 5 DEFINIR LA TECLA t 

26? 'tmmtmmmmmm 

270 FQI^=1T08:PRINTI; : INPUTDSd) ¡NEXTI 
28? FCRhlTOB:D(I)=VAL("W"*D$(I)):NEX 
TI 

2?0 UtttmtttmtmmmJt 

300 '» HALLAR LA DIRECCION EN t 
310 't VRAM DE LA TECLA t 

320 'mmmmtMtmimm 

330 PRINT: INPUT n UNA LETRA A DEFINIR" ;L 
$ 

340 L=ASC (Lt) 16: FORI=0TO7: VP0KEL+ I , D ( I 
):NEXT 

350 FORI=!TO1000:NEXT:SCPEEN0 

360 tmmtmmmmmtt 

370 'i LINEAS PARA TU FUTURO t 



., asignando a cada tecla el dibujo que deseéis. 



330 »t PROERAHA * 

390 * ttttmtttttuttmtttttt 

400 PF.INT: PRINT: PRINT-DA RETURN A TODA 
S LAS LINEAS, Y DESPUES <F1>" 
410 PRINT; PRINT: PRIN T : PRINT': PRINT'l S 
CREEN 1' 

420 ?RINT"2 DATA" ; : F0RI= 1 T03: PR INTO ( ! } 

; : NEXTI : PRINTD í I ) 

430 "INT'3 DATA" ; : FGF I=5T07: PLINTO í I ) 

; V;: NEXTI :PRINT 0(1) 

440 PRINT-4 F0RI=":L: 'T0":L+7; ":READD: 

VPOKEI,D:NEXTI' 

450 LOCATE0,7:END 

¿¿0 tttttttmtmttttttmttt 

'70 '1 LEE COLORES L'TL HABLES i 

m ' tttttttttttttttmtttttttt 

*°0 SCREEN1 : PRINT-ESCftIBE EN MAYUSCULA 
:':FRINT:PRINT 

500 DATANEGRO, VERDE, VERDE PALIDO, AZUL 
OSCURO, AZUL PALIDO, ROJO OSCURO, CAVO, R 
OJO, ROJO PALIDO, AMARILLO OSCURO. AMARIL 
LO PALIDO, VERDE OSCURO, MAGENT A, Bft IS. 3L 
ANCO 

510 DIMAK16):RESTORE500:FORI=1TO15:RE 
AD8t:A$(I)=B$:PRINTA$(I);V;:NEXTI 

520 'mmmmtmuttmtmtm 

530 't PIDE COLORES Y MIRA SI ESTAN» 

540 mmmmtnttmnnmmt 

550 PR I NT : PR I N T : PRINT"ELIGE=": INPt'T'C 
OLOR DELANTERA" ;C$: INPUT"C0L0R DE FOND 
0";Clt 

560 F0RI=1T015 

m IFC$=A$(I)THENC=I 

580 IFClt=A$(I)THENCl=I 

5?0 NEXTI:IFC=0ORC1=0THEN SOTO 550 

600 utmntmnmmmtuum 

610 'ÍCALCULO DEL CODIGO DEL COLOR í 

620 'nmmmmmmmnmm 

630 N =16tC+Cl 

640 INPUT "LA LETRA DE ANTES" ; Lt 

650 ttmttttttttttttimtttmtt 

660 'ti CALCULO DE LA DIRECCION tt 

670 'lt EN LA VRAM DE LA LETRA tt 

680 mmmmtmmtmmm 

690 L =ASC(Lt ):LE =INT(L /8*8192) 




_ 



700 PRINT: PRINT-TU CARACTER TIENE COD 
IGQ ";N Y DIRECCION" ; LE 
710 'mttttttttttttttttttmttm 
720 'tt IMPRIME LA LETRA YA tt 
730 ' INDEFINIDA Y DA SUS CODIGOS» 
740 'ttttttttttttttttttttttttttttt 
750 VPOKELE ,N 
760 PRINT-.PRINTLt 

770 PRINT: PRINT'PARA GUARDARLO ESCRIBE 
■ : PR I NT : PR I NT " VPOKE ■ j LE ¡",'¡N 
780 FORU=1TO1000:NEXT 
790 SCREEN0 

800 PRINT: PRINT n DA A CADA UNA DE LAS L 
INEAS UN <RETURN>,PAP.A GUARDARLAS Y 
DESPUES DA <RUN> ": PRINT : PR I NT : PRINT 
¡PRINT 

810 PRINT-5 VP0KE u ;LE ;\";N 

820 PRINT"6 PRINT";CHRi(34);"PULSA TU 

LETRA REDEFINIDA Y PAPA HACER OTRA <FI 

>";CHRi(32):KEY2/goto WCHR* ¡13) 

830 PRINT"? END" 

840 LOCATE0, 7 : END 







100 


- 5E 


300 - 58 


500 


- 44 


700 -117 


:i0 


- 58 


310 - 58 


510 


-140 


710 - 58 


120 


- 53 


320 - 58 


520 


- 58 


720 - 58 


130 


- 58 


330 -221 


530 


- 58 


730 - 58 


140 


- 58 


340 -223 


540 


- 58 


740 - 58 


150 


- 58 


350 -121 


550 


- 22 


750 -209 


160 


- 58 


360 - 58 


560 


-195 


760 -204 


!70 


- 58 


370 - 58 


570 


- 53 


770 -193 


180 


- 58 


380 - 55 


580 


-151 


780 -117 


190 


- 58 


390 - 58 


590 


-216 


790 -214 


200 


- 58 


400 -183 


600 


- 58 


800 - 6! 


210 


- 33 


410 - 35 


610 


- 58 


810 -143 


220 


- 26 


420 -141 


620 


- 58 


820 -216 


230 


- 58 


430 -150 


630 


-247 


830 -227 


240 


- 58 


440 - 2 


640 


-125 


840 -232 


250 


- 53 


450 -232 


650 


-51 




260 


- 58 


460 - 58 


660 


- 58 




270 


-212 


470 - 58 


670 


- 58 




280 


- 78 


480 - 58 


680 


- 58 


TOTAL: 


290 


- 53 


490 - 19 


690 


- 92 


7214 
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INICIACION AL LENGUAJE MAQUINA 



DEL HARD AL SOFT 

BORRON Y SERIE NUEVA 

Llegó el momento del desencanto ya sabemos cómo, pero no sabemos qué. Es decir, conocemos mucho sobre el 
ordenador, cómo funciona el VDP, cómo leer archivos, cómo... pero no sabemos que hacer con él, excepto diseñar 
juegos o sofisticados programas, que... en la mayoría de ocasiones no nos sirven para nada, en fin, no son muchos los 
que logran profesionalizar sus conocimientos pero para aquellos que contra viento y marea quieran intentarlo el 

conocimiento de la ley de Murphy les será imprescindible. 



Con este llegamos al número 22 
de nuestra serie del Hard al 
Soft lo cual, según se mire pue- 
de decir muchas cosas o, puede no de- 
cir nada, pero en todo caso, sí parece 
negado el momento de hacer un ba- 
lance. A mí, su autor, no dej a de asom- 
brarme el gran avance teórico que ha 
experimentado el aficionado a los or- 
denadores en estos dos años y creo 
que modestia aparte a los que mes a 
mes hemos hecho posible esta revis- 
ta nos corresponde un poquito de mé- 
rito por eUo. Cuando iniciamos esta 
serie, o aún diría más, cuando inicia- 
mos esta revista —así como su her- 
mana MSX Club— el usuario de MSX 
no parecía demandar en exceso in- 
formación sobre lenguaje maquina, 
siendo el 90% de nuestras consultas 
relacionadas con el Basic. EUo era, 



todo hay que decirlo, en parte debido 
a la incredulidad por parte de mu- 
chos hacia las ventajas del MSX BA- 
SIC, que entonces aún eran verdade- 
ramente revolucionarias. Hoy en día 
el 50% de la revista está dedicada a 
esta temática directa o indirecta- 
mente. Se ha avanzado mucho, sí, y 
no me refiero tan sólo al desarroUo 
de la norma MSX, que contra toda 
suerte de pronósticos adversos se ha 
afianzado en el mercado sólidamen- 
te, no sobre todo se ha avanzado en lo 
que respecta al nivel de conocimien- 
tos de nuestros lectores, que si ayer 
nos pedían información hoy nos la 
brindan —muchos de nuestros artícu- 
los firmados por lectores así nos lo 
demuestran- por otro lado, cuando 
iniciamos nuestra singladura había 
verdaderos problemas para encon- 



trar libros, información, etc., etc., re- 
ferente al MLP. Sin embargo, ahora 
es posible encontrar en las librerías 
especializadas más de 10 títulos dedi- 
cados al LENGUAJE MAQUINA del 
MSX. Asimismo ha crecido notable- 
mente el número de colaboradores 
técnicos de esta editorial, y se desa- 
rroUan series que destripan a con- 
ciencia al ordenador. 

Es pues el momento de decir adiós 
a esta serie que no intentó sino expli- 
car en la medida de lo posible el salto 
entre la frialdad de un circuito y la in- 
teligencia —artificial sí así se quiere- 
de un ordenador, y como resumen de 
dos largos años de artículos mensua- 
les me atrevería a recordarles que el 
álgebra de Boole, sobre la que descan- 
sa el funcionamiento lógico de estas 
máquinas, fue desarroUada por el se- 
ñor Boole, como una explicación ma- 
temática a los procesos mentales del 
ser humano. Pero no seguiré por esos 
derroteros, pues eso sería filosofía. 

Aunque por otro lado no deja de ser 
filosofía en cierta medida y no por 
eUo menos real la famosa Ley de 
Murphy o de La Tartine cuando se 
aplica a los microordenadores. 

"Está comprobado que cuando se 
diseña un sistema y se prevén mu- 
chas posibüidades adicionales, nun- 
ca se necesitan éstas. En cambio 
siempre se necesita lo que no se ha 
previsto." 

Para los que no conocieran esta fa- 
mosa Ley les diremos que su enuncia- 
do general podría ser: si algo puede 
fallar, fallará. Esta famosa ley deriva- 
da del segundo principio de la termo- 
dinámica viene aplicándose hace 
años a los más variados campos con 
resultados sorprendentes. 

¿Qué queremos decir con eUo? 
Pues ni más ni menos que "las posibi- 
lidades de que la tostada untada con 
mantequüla caiga sobre la alfombra 




32 



con el lado untado hacia abajo es di- 
rectamente proporcional al valor de 
la alfombra". Ja! Ja! espero que mis 
lectores me hayan perdonado esta 
pequeña broma después de casi dos 
años de s esud os artículos mes a mes. 

MSX EXTRA N.° 4 primer artículo 
de Hard al Soft. ¿Qué es un ordena- 
dor? números binarios (puertas lógi- 
cas). 

N.° 5 (palabra, tamaño de palabra) 
(memoria) (memoria periférica ex- 
terna). 



N.° 6 (memoria del MSX) (nota- 
ción hexadécimal) (mapa de memo- 
ria MSX). 

N.° 8 (programa para volcado de 
memoria) (POKE) 

N.° 9 (el Z80) 

N.° 10 (registros del Z80 primeras 
instrucciones Asembler) 

N.° 11, 12, 13, 14 y 15 explicación 
exhaustiva de todas las instruccio- 
nes Assembler. 

MSX EXTRA N.° 16 (Función USR) 
(OLEAR) 



N.° 17, 18, 20 y 21 (instrucciones 
avanzadas Assembler) 

N.° 22 (instrucciones de rotación y 
de desplazamiento) 

23 (transferencia de bloques) 

24 (todas las instrucciones del 
Asembler) 

25 y 26 (ampliación Asembler) 
Todo lo cual se completó con sen- 
dos apéndices dedicados a las comu- 
nicaciones y al álgebra de Boole res- 
pectivamente. 

JUAN C. GONZALEZ 



NUMEROS ATRASADOS • NUMEROS ATRASADOS 




MSX 2.' Edición 
N.°" 1,2.3.4 -450 PTAS. 



MSX 2.' Edición 
N.°' 5.6.7.8 - 475 PTAS. 



MSX 2.' Edición 575 
N.° 9,10,11,12,13 PTAS. 



MSX14 160 PTAS. 



MSX15 175 PTAS. 



MSX16 175 PTAS. 




YAMAHA CX 5M II 



MSX17 175 PTAS. 



MSX18 175 PTAS 





MSX 19.20 350 PTAS. 



FU 



MSX21 175 PTAS. 




MSX CODIGO MSX22 175 PTAS. 

MAQUINA - 275-PTAS 



MSX23 175 PTAS. 



MSX 24 175 PTAS 



wZy"/ 'oNOBE \ 



MSX25.26 350 PTAS. 




MSX27 225 PTAS. 



MSX 28 225 PTAS. 



MSX 29 225 PTAS. 



¡LA 1. a REVISTA DE MSX DE ESPAÑA! 

PARA QUE NO TE QUEDES CON LA COLECCION INCOMPLETA SOLO TIENES QUE ENVIAR HOY 
MISMO EL BOLETIN DE PEDIDO CON TUS DATOS PERSONALES A «SUPER JUEGOS EXTRA MSX» 
-DPTO. SUSCRIPCIONES C/. Roca i Batlle, 10-12, 08023 Barcelona. 
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Feria de Barcelona 



MAS DE 34.000 
PROFESIONALES 
HAN VISITADO 
INFORMAT 87 




Panorámica de Informal 



Según cifras provisionales, mas de 
34.000 profesionales procedentes 
de todo el pais han visitado Informat 
87, durante los seis días que el salón ha 
permanecido abierto. Este número de visi- 
tantes, fundamentalmente distribuidores 
de informática, potenciales usuarios y téc- 
nicos representa un incremento del 30 
por ciento en relación con la anterior edi- 
ción del salón. En este sentido, dos razo- 
nes han contribuido a lograr el citado in- 
cremento de visitantes. En primer térmi- 
no, el hecho de que el salón haya durado 
un día mas a petición del sector y, en se- 
gundo lugar, la coincidencia del puente de 
San José, que ha propiciado que visitaran 
Informat un buen número de potenciales 
usuarios. 

De esta forma, la presencia en el certa- 
men del ciento por ciento de la oferta in- 
formática del mercado español ha tenido 
su correspondencia desde el lado de la de- 
manda, con los citados incrementos de 
afluencia de profesionales. 

El conjunto de estos resultados revali- 
dan su condición de salón exclusivamente 
profesional íntegramente dedicado a la in- 
formática y su influencia en la totalidad 

= 
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del mercado español, lo que le reafirma 
como la primera cita informática del año 
en España. En esta misma línea se inscri- 
be la convocatoria de Informat 88, que du- 
rará seis días, entre el 1 1 y 16 de abril del 




Tommy, el "omnlbof de COMTBADM 
EITROPE (no me comercializa) 




Stand de Idealoglc en Informat. 



NULA PRESENCIA 
MSX 

En el recientemente concluido : 
INFORMAT 87. la norma MSX 
ha brillado por su ausencia 

Bien es verdad que este certamen anual 
cada vez se decanta más hacia el sector 
profesional, pero no dejamos de lamentar 
el escaso eco de la norma MSX en él. El as- 
pecto más destacable de este salón ha sido 
la presentación de nuevos paquetes de 
software de gestión, así como de equipos 
para el control de procesos industriales. 
Los PC's estaban presentes no tanto como 
novedad en sí misma sino como termina- 
les de equipos mayores. 





De todos modos, IDEALOGIC estuvo pre- 
sente con su software para equipos de la 
segunda generación de MSX además de 
con los programas que tiene desarrolla- 
dos para el standard PC. 

La nota curiosa de la feria la dio Com- 
TRade Europe con su robot (omnibot) 
TOMY, que pese a no estar prevista su co- 
mercializació dio un cierto aire futurista 
a la feria, siendo poco menos que la masco- 
ta de esta edición de INFORMAT. 

Afirma Pasgual Maragall 
en la inauguración de la CU 

LOS JJ.00.-92 
44 PROYECTOS 
INFORMATICOS 
POR UN TOTAL DE 
43.591 MILLONES 




La organización de los Juegos Olímpi- 
cos de 1992 hace imprescindible el desa- 
rrollo de, al menos, 44 proyectos informá- 
ticos, de comunicaciones, instalación de 
fibra óptica, radiotelefonía y equipamien- 
to de radiotelevisión, de los 99 contempla- 
dos por los redactores del BIT 92 (Barcelo- 
na Informática y Telecomunicaciones), 
ha afirmado el alcalde de Barcelona, Pas- 
qual MaragaU, durante su intervención en 
la jornada inaugural de la Convención In- 
formática Latina, (CIL) en Informat 87. 
Acompañaban al alcalde de Barcelona el 
presidente de Informat 87, José A, Díaz 
Salanova; el director general de Feria de 
Barcelona, Enric Crous.y el presidente de 
la CIL 87, Manuel de Porn. 

Pasqual MaragaU añadió que el coste to- 
tal de los 99 proyectos aconsejados se esti- 
ma en unos 58.825 millones de pesetas de 
1986, si bien si se toman únicamente en 
cuenta los citados 44 proyectos conside- 
rados imprescindibles, el coste de ejecu- 
ción de los mismos asciende a 43.591 mi- 
llones de pesetas, según las estimaciones 
realizadas en 1985. El alcalde agregó que, 
aunque el encarecimiento del coste de es- 
tos proyectos será muy importante du- 
rante los próximos años, éste se verá 
amortiguando por las ayudas externas al 
propio presupuesto del COOB 92 ( 106.000 
millones de pesetas), que podrían ascen- 
der a unos 35.034 millones. 





JU Consejero Delegado y Director Qenerml 
de Sony España, Br. Tadashi Hasunuma 



SONY INVERTIRA 



1.000.000.000 



ESPAÑA 



En una rueda de prensa celebrada 
recientemente en Barcelona, Ta- 
dashi Hasunuma Director General 
y Consejero Delegado de SONY ESPAÑA 
S A. — en su primera comparecencia ante 
los medios de comunicación desde que ac- 
cedió al cargo el pasado enero — afirmó 
que esta compañía tiene previsto invertir 
durante el presente año una cifra supe- 
rior a los 1.000 millones de pesetas en la 
mejora de la tecnología de su fábrica de Pa- 
rets del Vallés en Barcelona. Con esta can- 
tidad la inversión total de esta empresa 
española se cifrará en los 3.000 millones 
de pesetas. 

El destino fundamental de estos 1.000 
millones será la ampliación de las instala- 
ciones y del número de robots en las cade- 
nas de montaje y en la aplicación de un 
nuevo sistema de computerización del 
control —TON SYSTEM — . Estas mejoras 
convertirán a SONY ESPAÑA, durante 
1987, en una de las fábricas mejor equipa- 
das del Grupo a nivel mundial puesto que 
— en palabras del propio Tadashi Hasunu- 
ma, "muy pocas compañías utilizan orde- 
nadores que conecten directamente con el 
control de fabricación. Se trata de una op- 
timización de la estrategia, entendida en 
todo lo que se refiera a programación de la 
producción". 

La innovación consiste, como mencio- 
nábamos anteriormente, en la implanta- 
ción de un nuevo sistema de computeriza- 
ción para la producción asistida por orde- 
nador de la planta de Parets del Valles. 



Recientemente han sido dados a co- 

de D ¿^^S, I SS? OT de Informática 
na politécnica de Barcelo- 

V^GV^a***™*' Sub ^ctor de LA 
~" en ja edición anterior, los pre- 




oategoría* 

ei gSsssí 

FO (de gráficos de gestión) v MAThI ™ 
grama de reDreq«ntji^A« i^ HS,pro " 

:saSS«SR 

Categoría Centros Docente r^ ami I 
para el programa MOTOR 4 ed!fp«t^ ° 

(motor, encendido, carburación v Sm ' 

manos con el joystick t0 de meca " 

¡Enhorabuena a los ganadores. 



1 



1 * 4. 




Detalle de una de las nuevas máquinas de inserción automática. Dos 
de robóte ae incorporan, dorante este año, a la cadena de montaje. 

relación a otras fábricas del Norte de Eu- 



Otra vez en palabras del propio Director 
General de SONY. "Con la incorporación 
de otras unidades de robots y del Compu- 
ter Aided Production -TON SYSTEM-, 
aumentará considerablemente la eficacia 
de nuestra fábrica dentro de la Europa Co- 
munitaria y la hará más competitiva en 



ropa . 

Cabe tener en cuenta que de la produc- 
ción total de SONY en España, aproxima- 
damente el 20 por ciento, se destina al 
mercado exterior. Una vez más, enhora- 
buena SONY. 
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CHOPPER 



Eaglesoft/Aacksoft/Sony 
Formato: Disco 3 1/2", MSX-2 
Mandos: Teclado, joystick. 
Precio: 4000. 



El programa CHOPPER es un es- 
pléndido simulador de helicópte- 
ro. En este programa nuestra mi- 
sión es recoger supervivientes en plena 
selva tras un "raid" enemigo. Tenemos un 
completo control sobre el helicóptero gra- 
cias a los complejos mandos de abordo y a 
la computadora de viaje, que nos propor- 
ciona información sobre todo el estado del 
aparato. Es posible controlar, de igual for- 
ma todo el armamento, radares y demás 
instrumentos del aparato. 




IV! 




En el juego destaca su elaborado gr afla- 
mo, ya que es un juego desarrollado para 
los MSX de segunda generación, haciendo 
perfecto uso de todas sus posibilidades 
gráficas. Es de destacar el completo panel 
de mandos del aparato, en el que se inclu- 
yen, display del ordenador de a bordo, me- 
diante el cual se nos comunicará todos los 
daños sufridos por los enemigos y el esta- 
do general del aparato; controles de velo- 
cidad, temperatura, combustible en los di- 
ferentes depósitos, radar, brújula, hori- 
zonte artificial, altitud, velocidad de as- 
censo, velocidad de giro, identificador de 
objetos, rastreador, control de aceite, y un 
largo etcétera que nos da una perfecta Idea 
de la complejidad del juego. 




Trataremos a continuación de esbozar 
las principales ventajas e Inconvenientes 
de este completísimo simulador de heli- 
cóptero de rescate/ataque (ya que hemos 
de eliminar a todos los enemigos que que- 
dan en la zona). 



PROS; 



* El conjunto del juego presenta una ca- 
lidad bastante alta, siendo un juego intere- 
sante y difícil de dominar. 

* Los gráficos estáticos sacan buen par- 
tido de las posibilidades de los MSX de se- 
gunda generación. 

* La velocidad de respuesta es propor- 
cional a las condiciones en que se encuen- 
tre el aparato, como en un helicóptero 
real. 

* El sonido es una de sus mejores virtu- 
des, haciendo uso de voz sintetizada para 
dar mensajes de aviso. 



I-jÜ. CONTRAS: 



* El Juego resulta muy complicado en los 
niveles Iniciales, con lo que al empezar a 
jugar, uno no llega a acostumbrarse a los 
mandos hasta haberse estrellado una 
veintena de veces. 

* El paisaje sobre el que nos movemos, 
compuesto de líneas rectas podía haber 
estado mucho mejor logrado, aprovechan- 
do un tanto más la memoria de vídeo adi- 
cional de los MSX-2. 

* Los mensajes que da el programa de 
viva voz son en inglés, aunque la pronun- 
ciación es muy clara. 



T. N. T. 



Manhattan Transfer, S A. 
Formato: Cassette, MSX-1 




En este original juego debes abrirte 
camino hasta la llave de oro, que 
te permitirá salir de tu laberinto 
hacia la próxima pantalla. Tu camino se 
halla bloqueado por enormes rocas, que 
sólo podrás apartar de tu camino gracias 
a las cargas de dinamita que se hallan re- 
partidas por todo el laberinto. 

Las pantallas consisten en un entrama- 
do de pasillos y escaleras en las que se en- 
cuentran las cargas de TNT. Puedes reco- 
gerlas, pasando sobre ellas, y dejarlas cer- 
ca de las rocas que desees dinamitar. A 
continuación debes dirigirte hacia el deto- 
nador, desde el que podrás hacer estallar 
las cargas. 



Pero el camino no es fácil, te acechan 
numerosos peligros. Entre ellos destacan 
dos voraces monstruos, que te Impiden el 
paso. Sólo puedes eliminarlos si haces es- 
tallar una bomba cerca de ellos. Existe 
también el peligro de caer dentro del hor- 
no de lava si el techo, que se desmorona 
aleatoriamente, cae bajo tus pies. 

La partida consta de 6 vidas, que pueden 
ser eliminadas por varios motivos. Pier- 
des una vida si eres devorado por alguno 
de los monstruos, o si caes en el horno de 
lava, o si caes de una escalera cargando 
una bomba, o si explota una bomba cerca 
de tí. Si caes de una escalera el contador de 
resistencia se decrementará, y perderás 
otra vida si llega a cero. 

Un Juego muy interesante, del que desta- 
camos a continuación sus puntos positi- 
vos y negativos. 

PROS = 

* Juego, muy original e interesante. In- 
corpora una gran cantidad de posibilida- 
des, haciéndolo un Juego muy completo. 

* Gráficos buenos, con un buen uso del 
color. 

* Efectos sonoros interesantes. 



CONTRAS 



* El manejo del personaje resulta difícil 
en algunos momentos debido a que la ruti- 
na de teclado no es lo suficientemente rá- 
pida. 

* Se desactivan todas las bombas al mo- 
rir, teniendo que volver a reiniciar el pro- 
ceso. 



MATA 
MARCIANOS 



Manhattan Transfer, S A 
Formato: Cassette, MSX-1 
Mandos: Teclado, joystíck. 
Precio: 900 pts. 



T 



ratamos hoy una de las últimas no- 
vedades de Manhattan Transfer, 
Mata MARCIANOS. El Juego con- 



CONTRAS — 

Como aspectos negativos en el Juego po- 
demos citar. 

* Los gráficos son monótonos, y muy si- 
milares en todas las fases. 

* No en todas las fases se permite el uso 
deljoystick. 

* Existen BUGS en el programa que per- 
miten pasar fácilmente a niveles superio- 
res. Este defecto es en muchas ocasiones 
incluido a propósito en los juegos, ya que 
resulta muy agradable descubrir un truco 
para pasar pantallas cuando está todo 
perdido. 



(aunque tampoco lo despreciarán estos 
últimos) destacará dentro de poco en el 
mercado del software para los MSX. 

Tanto por sus gráficos como por su "in- 
teresante" personaje. 

PROS — — = 



* Excelentes gráficos y uso exhaustivo 
de imágenes digitalizadas durante todo el 
transcurso del juego. 

* Música bastante bien conseguida que 
sirve de fondo a todas las partidas. 

* Es imposible dejar una partida a me- 
dias. 




siste, como ya viene siendo habitual en la 
mayoría de juegos espaciales, en matar el 
máximo número de enemigos sin ser toca- 
do por los proyectiles que estos disparan 
contra nosotros. 

Pese a que la idea del juego es poco (por 
no decir nada) original, el juego está co- 
rrectamente realizado y resulta muy inte- 
resante por numerosos aspectos que lo 
hacen destacar. En primer lugar el núme- 
ro de invasores es grande, 100 en cada 
fase del Juego, y no podemos pasar a la fase 
siguiente hasta haber eliminado a todos 
los invasores de la pantalla. El juego dis- 
pone de tres niveles de dificultad y posibi- 
lidad de hasta cinco Jugadores. 

Podemos decir que eljuego es interesan- 
te, aunque, tras haber adquirido un cierto 
dominio se hace algo monótono. 



RED LIGHTS 0F 
AMSTERDAM 



PRESS EUTTON 
TO CONTINUE 





Podemos destacar como positivas en 
este juego las siguientes características. 

* El control de la nave es muy rápido y 
obedece instantáneamente, lo cual da una 
agradable sensación de control sobre el 
Juego. 

* El disparo automático permite dispa- 
rar ráfagas que eliminen de un solo golpe 
a varios de nuestros agresores. 

* El juego es muy rápido y no permite 
una sola pérdida de atención. 

* El nivel creciente de dificultad en el 
Juego hace que sea prácticamente imposi- 
ble llegar a las últimas fases. Para los ami- 
gos de los disparos a discreción este Juego 
puede llegar a tener una alta dosis de exuc- 
ción. 



Este programa, nada habitual den- 
tro de la gama de programas que 
estamos acostumbrados a ver, 
presenta una "especial" partida de póker. 
En ella, Jugamos contra un único adversa- 
rio (adversaria mejor dicho). 

El Juego cuenta con 100 flcnas como 
unidad fundamental. Se Juega hasta que se 
ganen o se pierdan 100 fichas. En caso de 
ser nosotros los que ganemos a nuestra 
atractiva contrincante, ésta procederá a 
retirarse vina de sus prendas, protagoni- 
zando de este modo un emocionante 
"strip-tease" según nos sea o no favorable 
el desarrollo de la partida. 

La excelente capacidad gráfica de los 
MSX-2 permite unos gráficos espectacu- 
lares, que han sido plenamente utilizados 
en este programa. Tanto las Imágenes de 
nuestra contrincante, fotos digitalizadas 
mediante una cámara de vídeo, como el di- 
bujo de las cartas (muy bien conseguido) 
pueden hacer las delicias de más de uno. 

Estamos seguros de que este juego, que 
interesará más a los padres que a los hijos 



PRESS BUTTON 
TO CONTINUE 




fYWrP.Afi 

* Nuestra contrincante no es precisa- 
mente un genio jugando al póker, desta- 
cando la excesiva "facilidad" con que pier- 
de las partidas. 



Tratamiento de ficheros 



Los ficheros secuenciales, 








lo práctico 

JL 




Como ya anunciamos en el número i 

ficheros secuenciales como ejemplo de su uso en los MSX. 

Mientras realizábamos la sec- 
ción de trucos del progra- 
mador del pasado número 
de MSX-EXTRA se nos ocurrió un in- 
teresante ejemplo de uso de ficheros: 
un programa generador de progra- 
mas. 

Un generador de programas no es 
más que un programa que, tras' pre- 
guntar ciertas cuestiones al usuario 
genera un fichero que contiene el 
programa resultado. Este programa 
resultado puede ser directamente 
ejecutado, con lo que el usuario ha po- 
dido realizar un programa completo 
con sólo responder a unas simples 
cuestiones. 

Pese a lo que más de uno pueda pen- 
sar, los generadores de programas 
no son curiosidades informáticas, 
sino uno de los elementos integran- 
tes de la actual informática de ges- 
tión. 

Los generadores de programas son 
muy utilizados para individualizar 
programas generales. Por ejemplo, 
puede ocurrir que si deseamos com- 
prar un programa de base de datos 
para nuestros ficheros (programa 
que controla y actualiza todo tipo de 
ficheros), nos ofrezcan un generador 
de programas. Gracias al generador 
de programas, con sólo responder a 
unas cuantas preguntas sobre el con- 
tenido del fichero, su longitud, etc., 
tendremos a nuestra disposición un 
perfecto programa para el manejo de 
ese fichero en particular. 

Las ventajas de los programas ge- 
nerados frente a los programas gene- 
rales, que manejan todo tipo de fiche- 
ros, son múltiples: al tratar un solo 
tipo de fichero el acceso a los datos es 
mucho más rápido y eficaz, el uso del 
programa es mucho más sencülo 
para el usuario, etc. Son estas carac- 
terísticas, que siempre han hecho 
preferibles los programas específi- 
cos a los generales, las que hacen que 
los generadores de programas sean 
una de las opciones más "interesan- 
tes" a la hora de informatizar una 
cierta tarea. 

NUESTRO GENERADOR DE 
PROGRAMAS 




En el departamento de programa- 



ción decidimos realizar un pequeño 
generador de programas, de forma 
que pudiéramos ejemplificar de un 
modo sencülo los dos puntos que tra- 
tamos hoy: los ficheros secuenciales 
y los generadores de programas. 

El programa que incluimos es un 
generador de programas de sprites. 
Explicamos a continuación su fun- 
cionamiento. 



En primer lugar se nos pregunta 
sobre el tamaño de los sprites, de 8 x 8 
o de 16 x 16. Acto seguido se nos pide 
si deseamos que los sprites aparez- 
can ampliados en la pantalla. Una 
vez hecho esto hemos de definir la 
forma del sprite con unos y ceros. 
Acabada esta última tarea es cuando 
empieza a trabajar el generador de 
programas. Con toda la información 
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PROGRAMA 



necesaria en su poder, el programa 
irá enviando al fichero las líneas que 
conformarán el programa de sprites. 
Una vez hecho esto, podemos ya car- 
gar el programa resultado, que gene- 
rará el sprite y nos lo colocará en la 
pantalla. 

Como podréis observar no se trata 
de un programa demasiado útil; pero 
es, sin embargo, un programa senci- 
llo a partir del cual podéis desarro- 
llar vuetros propios programas, bien 
de ficheros, bien generadores de pro- 
gramas. 

Un aviso para aquellos que utilicéis 
un cassette para grabar el fichero. 
Antes de comenzar el programa ge- 
nerador debéis poner la cinta en 
modo grabación, ya que el programa 
se pone a grabar directamente sin 
dar ningún aviso. Podéis, sin embar- 
go, añadir si lo deseáis en la línea 245 
alguna instrucción que os avise que 
habéis de conectar el cassette (REC & 
PLAY). 

EXPLICACION DEL PROGRAMA 

Vamos ahora a dar un repaso al 
programa, tratando de explicarlo lo 
más claramente posible. 

En primer lugar, en la línea 24, y 
tras los REM iniciales (recordad que 
el apóstrofo ' es la abreviatura de 
REM) realizamos un CLEAR 500. 
Con esta instrucción reservamos 
500 bytes de memoria para las cade- 
nas de caracteres, en los que almace- 
naremos, entre otras cosas, la forma 
de los sprites con unos y ceros. 

En vuestros programas debéis mo- 
dificar el valor del CLEAR según sea 
la cantidad de memoria que necesi- 
téis tener reservada para cadenas de 
caracteres. En nuestro caso necesita- 
mos, para los sprites de 16x16 (los 
mayores) 256 caracteres (unos o ce- 
ros), más las respuestas a las pre- 
guntas sobre el tamaño de los sprites, 
etc. Con CLEAR 300 hubiera sido se- 
guramente suficiente; pero "más vale 
que sobre que no que falte". 

La línea 25 incluye el DIM que re- 
serva espacio para S$, donde almace- 
naremos cada línea horizontal que 
compone el sprite. 

Las líneas 40 a 90 son de puro trá- 
mite y sólo merece la pena destacar el 
uso de SPC(IO) en la línea 50 y de 
STRENTG$(39,"*") en la 60. 

La función SPC (10) nos retorna 
10 espacios en blanco que, en este 
caso, son impresos en la pantalla. Po- 
díamos haber utilizado un LOCATE 
10,0 para lograr el mismo efecto. La 
razón por la que hemos utilizado la 
función SPC es para recordaros que 
existe, ya que es la mejor forma de de- 
jar espacios en un fichero, aunque 
aquí la utilicemos para otra cosa. 

La función STRING$(39, "*") utili- 
zada en la línea 60 nos retorna una 



II ' 

11 ' tttttttlttltttlttttttltltl 

12 » t I 

13 ' $ ProgriM generador de t 

14 * t | 

15 ' t prograias de sprites t 

16 ' t | 

17 ' I USX -EXTRA t 

18 ' t t 

19 ' I por Milly Hiragall t 

20 ' t | 

21 ' imittmmmmtmm 

22 ' 

24 CLEAR 500 

25 DIM S$(16) 

26 ' 

31 ' Inicia preguntas 
31 ' 

40 MIDTH 39:CLS:KEY OFF 

5f PRINT SPC(10);'6enerador de progra« 

as" 

61 PRINTíPRINT STRINSK39, T) 

70 LOCATE 10, lf :PRIHT "i".- Sprites de 

8x8.' 

8# LOCATE 10,12:PRINT "2.- Sprites de 
16x16." 

90 LOCATE 0,15:PRINT 'Elige opción: "; 

110 At*INPUT$(l) 

111 T*VAL(A$) 

121 IF T<1 OR T>2 THEN 100 
125 T=T-1 

13# LOCATE 0,10:PRINT CHRI(27);'J' 
140 PRINT '¿Sprites aipliados (S/N)? 1 

150 Af=INPUTl(l) 

161 A*INSTR('NnSs',A$) 

170 IF A=0 THEM 150 ELSE A=(A-1)\2 

180 LOCATE 0,10jPRINT CHR$(27);'J' 

190 LOCATE l,5:PRINT "Entra con 1 y i 

la fona del sprite." 

200 FOR 1=0 TO 7+8IT 

210 LOCATE 3,I+7:PRINT USIN6 'M";I;:P 

RINT " ';STRIN6$(8+8IT,V) 

220 LOCATE 5,I+7:INPUT SKI) 

225 IF INSTR(SKI),'.') THEN 220 





230 NEXT I 

240 ' 

241 ' Abriios fichero 

242 ' 

250 OPEN 'PROG' FOR OUTPUT AS 11 

260 ' 

261 ' 6rabaios linea SCREEN 

262 • 

270 PRINTtl, '10 SCREEN 2.';TI2+A 

280 ' 

281 ' Bucle FOR 

282 ' 

290 PRINTtl, "20 S$« , ;CHR$(34);CHRI(34) 

300 PRINT#1,'30 FOR Ul T0";8+24tT 

310 PRINTIl,'40 READ A' 

320 PRINTI1,"50 S$=S$+CHR$<A>" 

330 PRINTtl,"60 NEXT X' 

340 PRINTtl, "70 SPRITEf(l)=S$" 

350 PRINTtl, "80 PUT SPRITE 1,(100,100) 

,15,1' 

360 PRINTtl, "90 SOTO 90' 

370 ' 

371 ' DATAS 

372 ' 

375 ' de 8x8 

376 ' 

380 IF T THEN 500 
390 FOR 1=0 TO 7 

400 PRINTtl, 100+1110,' DATA IB";S$(I) 
410 NEXT I 
420 CLOSEtl 
430 END 

500 » 

501 ' de 16x16 

502 ' 

510 FOR 1=0 TO 15 

520 PRINTtl, lff +1111;- DATA iB';HID$(S 

XI), 1,8) 

530 NEXT I 

540 FOR 1=0 TO 15 

550 PRINTtl, 360+íf 10; ' DATA IB'ftHlKS 
t(I),9) 
560 NEXT I 
570 CLOSEtl 
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cadena de caracteres con 39 asteris- 
cos. Esta instrucción es también muy 
utilizada en el tratamiento de fiche- 
ros. 

Las líneas 100 a 126 son las que 
realizan la pregunta del tamaño del 
sprite. La instrucción A$=IN- 
FUT$( 1) de la línea 100 espera a que 
pulsemos una tecla, y la almacena en 
A$. En la línea 110 la función VAL 

— — — 



nos devuelve el "valor" de la expre- 
sión alfanumérica (cadena de carac- 
teres). Si A$ contiene un número, la 
variable T pasará a contener ese nú- 
mero, mientras que si Af no contiene 
un número T valdrá O. En la línea 1 20 
comprobamos que se haya pulsado 1 
ó 2, retornando a la línea 100 en caso 
contrario. La línea 125 resta uno a T. 
Esto lo hacemos porque los sprites de 




Tratamiento de ficheros 



8x8 tienen por indicador O mientras 
que los de 16x 16 se indican con un 1. 

La línea 130 pondrá los pelos de 
punta a más de uno. Se trata de una 
secuencia de escape que borra la pan- 
talla por debajo de la posición indica- 
da por el LOCATE anterior. Os reco- 
mendamos que consultéis el número 
22-23 de nuestra revista hermana 
MSX-CLUB, para una mayor infor- 
mación sobre todas las secuencias de 
escape que existen en los MSX. 

La línea 180 vuelve a esperar un 
carácter del teclado; pero a continua- 
ción lo tratamos de forma especial. A 
la pregunta de la línea 160 debemos 
esperar una respuesta "S", "s", "N" o 
"n". 

La función INSTE, sirve para en- 
contrar una cadena de caracteres en 
el interior de otra. De esta forma, en 
la línea 160 A= INSTR("NnSs" A$ ) 
buscamos la ocurrencia de A$ dentro 
de la cadena "NnSs". La variable A 
contendrá la posición en encuentro 
(1 a 4) o bien si Al no está en 
"NnSs", es decir, si hemos pulsado 
una tecla incorrecta. En este último 
caso la línea 170 nos devuelve a la 
150, repitiéndose la espera de una te- 
cla. En caso de que la entrada sea váli- 
da hemos de convertirla aun formato 
lógico. Pensemos qué ocurre si pulsa- 
mos "N" o "n". En este caso A valdrá 1 
ó 2, y 3 ó 4 si pulsamos "S" o "s". Por lo 
tanto, al final de la línea 170 resta- 
mos uno a la variable A y realizamos 
la división entera por 2 (no confun- 
dir con /). Tras esto A contendrá 
ó 1 según hayamos pulsado "S" o "N". 

Las líneas 200 a 230 contienen el 
bucle que lee la forma binaria de los 
sprites. En primer lugar la duración 
del bucle varía según el tamaño del 
sprite (8 ó 16 líneas horizontales). 




Esto lo solucionamos en la línea 200. 
La línea 210, aparentemente compli- 
cada, no lo es en absoluto, a excep- 
ción de que utilizamos PRINT USING. 
En esta línea indicamos al programa 
que escriba, con sólo dos dígitos, el 
contenido de la variable I. 

En la línea 200 hacemos un INPÜT 
de la forma del sprite, con unos y ce- 
ros, y en la 225 comprobamos que se 
hayan utilizado todas las posiciones 
(no queden puntos). 

Estas dos líneas deberían haber 
sido sustituidas por una rutina de en- 
trada de datos espe cífica (número 
25-26 de MSX-EXTRA) pero no he- 
mos querido complicar el programa 
excesivamente. 



ATAQUEMOS EL FICHERO 

Es en la línea 250 donde abrimos el 
fichero, de nombre PROG, para escri- 
tura, y con número 1. A partir de ahí 
vamos introduciendo en el fichero, 
por medio de la instrucción 
PRINT* 1, cada una de las líneas. No- 
tad que esta instrucción se utiliza 
igual que la instrucción PRINT (lí- 
neas 270, 290 y 300) y que se permite 
la separación con punto y coma. ¡No 
con coma! 

El problema final radica en cómo 
enviar al fichero las datas en formato 
binario que hemos leído del teclado. 
En el caso de sprites de 8x8 no hay 
nada más sencillo; simplemente co- 
locamos antes del conjunto de unos y 
ceros el símbolo "&B" que indica al 
ordenador que sigue un número bi- 
nario. Las operaciones que preceden 
al "DATA &B n de la línea 400 calculan 
el número de línea correspondiente a 
cada línea. 

En el caso de sprites de 16x16 el 
proceso es ligeramente más compli- 
cado; pero en el fondo es muy similar. 
Simplemente hemos de dividir cada 
línea en dos bloques mediante la ins- 
trucción MID$. 

Terminamos en ambos casos ce- 
rrando el fichero y acabando el pro- 
grama. Por último, queremos hacer 
notar que la línea 380 es correcta, ya 
que el programa saltará a la línea 
500 siempre que T sea diferente de 
cero. 

Llega ya el momento de despedir- 
nos hasta el próximo número, en que 
trataremos los ficheros de acceso 
aleatorio. 

por Willy Miragall 





VIVE LA APASIONANTE AVENTURA 
DE PILOTAR UN CAZA 



ES UN SIMULADOR ESPECTACULAR 

CON LA GARANTIA MANHATTAN TRANSFER, S.A. 
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¡NOS APLICAMOS A SER UTILES! 

A TRAVES DE MSX CLUB DE MAILING PUEDES ADQUIRIR 



BASIC TUTOR IDEALOCIC 



Deja el manual de lado. Inserta este breviario de 
basic en cartucho y olvídate. No ocupa memoria. 

PVP 3.500 ptS. 



Dirección 
I Población 



ADAPTADORES TARJETAS 
INTELIGENTES 
BEE CARD Y SOFTCARD 



Note quedes 
al margen 
y disfruta 
de las tarjetas 
inteligentes. 
Lo último 
en soft. 



Y.VJM 



CP Prov 



I □ Tutor Basic Ptas. 3.500- 

1 □ SweetAcorn Ptas. 5.200- 

I □ Barn Stormer Ptas. 5.200- 

| Gastos de envío por cada producto 100,- pts. Remito talón bancario de 



□ Adaptador Bee Card Ptas. 2.850- 

□ Backgammon Ras. 5.200- 

□ Chock'n Pop Ptas. 5.200- 



Transfer, S.A. Enviar a MSX CLUB de MAILING, Roca i Batlle 1 0-1 2 bajos - 08023 Barcelona. 



□ Adaptador Softcard Ptas. 2.850- I 

□ Shark Hunter Ptas. 5.200- 1 

□ Le Mans 2 Ptas. 5.200- 

pts. a la orden de Manhattan | 



TRUCOS DEL 
PROGRAMADOR 




Javier Hórremela Morón 
nos envía una serle de intere- 
santes traeos que podéis utili- 
zar en vuestros programas. 
Damos a continuación cuenta 
de todos ellos. 

LOCALIZAR 

POTTOS CON 
VPOKE 

Siempre resulta interesante poder 
acceder mediante las instrucciones 
VPOKE Y VPEEK a nuestros gráfi- 



cos en SCREEN 2; pero normalmente re- 
sulta muy complicado conocer con exacti- 
tud la dirección de memoria de vídeo en la 
que se encuentra un determinado punto. 
Las siguientes líneas solucionan este pro- 
blema. 

Si suponemos que las X, Y como las 
coordenadas del punto en cuestión: 

8=ZHT CX78)*886: V=IMT (X/8)*8: 

D=s+v+cr-nrecY/8)*8) 

tenemos, tras la ejecución de estas ins- 
trucciones, en la variable D la dirección 
del punto en cuestión, dentro de la tabla de 
patrones. Para acceder a la tabla de colo- 
res correspondiente a ese mismo punto 
sólo hemos de sumar 8192 a la variable D. 



BORRAR 

PANTALLA EN 
ENSAMBLADOR 

Existe en la ROM de los MSX una rutina 
encargada de borrar la pantalla, de igual 
forma como lo hace CLS. Esta rutina se en- 
cuentra en la dirección & H848 y funciona 
en todos los modos sin ningún otro requi- 
sito especial. 





COPIAR 

PANTALLA DE 
RAM A VRAM 

En algunos programas la pantalla se co- 
pia poco a poco en forma de pequeñas lí- 
neas que se van engrosando. Este efecto se 
puede simular en los MSX mediante las si- 
guientes líneas. Se supone que en la varia- 
ble IN se encuentra la dirección de memo- 
ria RAM en que se encuentra en dibujo y 
que la variable INCOL apunta a la direc- 
ción de memoria RAM en la que se encuen- 
tran los colores del dibujo en cuestión. 
Sólo funciona en SCREEN 2. 

rOH F=0 TO 7: N F: FOR D=l TO 
768: VPOKE N, PEEK CXN+BT): VPOKE 
8192 ! N,PEEK(INCOL +N):N=N+8: 
NEXTD, F. 

ESCRIBIR EN 
NEGRITA 

Para conseguir caracteres en negrita en 
SCREEN 1 podemos hacer: 
FOH 8=38*8 TO 8B4*8+7:VPOKB 8, 
VPEEK CS) Oa VPEEK C8)/8: NEXT 

Otro interesante efecto en SCREEN 1 se 
consigue con: 

FOR 8=88*8 TO 254*8 7: VPOKE 8, 
VPEEK (S) XOR VPEEK (S)/8: NEXT. 



SUSCRIBETE HOY MISMO SI 
QUIERES ESTAR EN VMGUAMIA 




Nombre y apellidos 



Calle 



N.° 



Ciudad 



Tel. 



Provincia 



La primera revista de MSX de España en ta domicilio cada 
mes. Por el precio de DIEZ NUMEROS recibirás DOCE. 

Además tu condición de suscriptor te da derecho 
a descuentos y ofertas especiales en otos productos. 
MANHATTAN TRANSFER, SJL 



Deseo suscribirme a la revista 
STJPERJUEGOS EXTRA MSX 

a partir del número 



FORMA DE PAGO: Mediante talón ban- 

carlo a nombre de: 

MANHATTAN TRANSFER, SJL 
C7. Roca i Batlle, 10-18 
08083 Barcelona 



_ 

Muy importante : para evitar retraaos en la 
recepción de los números rogamos deta- 
lléis exactamente el nuevo número de los 
distritos postales. Gracias. 



Ptas. 8.880,- 
Ptas. 8.600,- 
Ptas. 3.880,- 
38 USAS 



España por correo normal 
Europa correo normal 
Europa por avión 
América por avión 



¡¡¡SONÓ LA FLAUTA! !! 



YA ESTA A LA VENTA 
EL SEGUNDO NUMERO 




La primera revista de CompactDisc de España 
COMPACTA Y DIFERENTE 

Totalmente pensada para los usuarios de CD, un concepto 
revolucionario en la reproducción del sonido. 

Toma nota de nuestro sumario 

- PLACIDO DOMINGO 

- MILES DAVIS 

- CRITICA MUSICAL 

- NOVEDADES EN APARATOS 

- COMPLETO CA TALOGO DE DISCOS COMPACTOS 
Música clásica y jazz 

- SUPER TOP 




NO ES CASUALIDAD 



I 



hilips New Media System 



MEOOS INTERACTIVOS 



FAHRENHETT451 




IllAKIUM 



** 1 

¡TELARIUM 









PHILIPS 


spmvast 


i mmmm 

IDEMOG1C 



Protagoniza tu propia 
aventura.,. 



Más información: 
Tels. 91-469 65 12/95 



